TSV05 DATA REL i. ae saa ad 
_ COPYRIGHT® 1982-87 MADE INUSA 





+— PEO 


Bi 


(Cc 


SVOS DATA RELIABILITY MACRO VOS.03 Friday 22-May-87 08:12 Page 2 


mr rH 
KrOwWOenO VU 


RGEARHE SEIEAEANE SVS VS 


.REM 


seven satin 2 
PRODUCT ID: AC-T178D-MC 
PRODUCT TITLE: CVTSEDO TSVOS DATA RELIABILITY 
PRODUCT DATE: 4-JUN-87 
MAINTAINER: CSS/PGG DIAGNOSTICS 


AUTHOR : DICK GORDON 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 


EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 


RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT 
NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 19862, 19863, 1987 BY DIGITAL EQUIPMENT CORPORATION 
THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE 


SEQ 000 


TSVOS DATA RELIABILITY MACRO VO5S.03 Friday 22-May-87 08:12 Page 3 


. PAGE 


1.0 


2.0 


SEQ 0002 


USER DOCUMENTATION TABLE OF CONTENTS 


GLOSSARY 


GENERAL INFORMATION 


1.1 


1.2 


i.d 
1.4 
1.5 


PROGRAM ABSTRACT 


1.1.1 FUNCTIONAL DESCRIPTION 
1.1.2 STRUCTURE OF PROGRAM 
1.1.53 MEMORY MAP 
1.1.4 DIAGNOSTIC INFORMATION 
1.1.4.1 SCOPE 
1.1.4.2 ERROR RECOVERY 
1.1.4.3 wh ERROR RECOVERY 
1.1.4.3.1 MEDIA/OPERATIONAL 
oy EE WRITE -ERROR-RECOVERY 
1.1.4.3.2 OPERATIONAL WRITE -ERROR-RECOVERY 
1.1.4.4 DIAGNOSTIC TIMING ADJUSTMENT 


SYSTEM REQUIREMENTS 


1.2.1 HAROWARE REQUIREMENTS 
1.2.2 SOFTWARE REQUIREMENTS 


RELATED DOCUMENTS AND STANDARDS 
DIAGNOSTIC HIERARCHY PREREQUISITES 
ASSUMPTIONS 


OPERATING INSTRUCTIONS 


2.1 
2.2 


2.3 


HARDWARE PARAMETERS 
SOFTWARE PARAMETERS 


2.2.1 TSOS COMMAND LIST 
2.2.2 DATA PATTERNS 


EXAMPLES OF SOFTWARE PARAMETER DIALOGUE 
2.3.1 BASIC FUNCTION AND DATA RELIABILITY 
WITH ALL ERROR ING ENABLED 


REPORT 
2.3.2 SCOPE LOOP SET UP IN BASIC FUNCTIONS 
2.3.5 SCOPE LOOP SET UP IN DATA RELIABILITY 


EXECUTION TIMES 





TSVOS DATA RELIABILITY MACRO VOS.03 Friday 22-May-87 08:12 Page 3-1 


3.0 
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SEQ 0005 
2.4.1 SYSTEM CONFIGURATION 
2.4.2 TEST EXECUTION TIMES 
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Pe ERROR REPORTING 
3.1.1 ERROR #1 - COMMAND PACKET ADDRESS IS NOT ON A 
MODULO 4 BOUNDRY 
3.1.2 ERROR @2 - TSOS NOT READY 
3.1.3 ERROR 5 - NO RESPONSE ERRORS 
3.1.4 NTERRUPT ERROR 
i SPECIAL CONDITION ERRORS 
3.1.5.1 ERROR @5 - TCCO, UNDEFINED onto CONDITION 
3.1.5.2 ERROR #6 - TCC1, ATTENTION CONDIT 
3.1.5.5 ERROR #7 - TCC2, TAPE STATUS ALERT 
3.1.5.4 ERROR #8 - TCCS, FUNCTION REJECT 
3.1.5.5 OR - TCC4, RECOVERABLE 
3.1.5.6 ERROR #10- TCCS, REC ABLE OR 
3.1.5.7 ERROR @11- TCC6, UNRECOVERABLE ERROR 
3.1.5.6 ERROR @12- TCC7, FATAL SUBSYSTEM ERROR 
3.1.6 ERROR $13 - RFC NON-ZERO ERROR 
3.1.7 ERROR #14 - RETRY LIMIT EXCEEDED 
3.1.8 ERROR #15 - TOO MANY INTERRUPTS 
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3.1.10 ERROR #17 - DATA COMPARE ERRORS 
3.2 ERROR HALTS 


5.1 TEST 1 - BASIC 46GB 

2 TEST 2 - DATA RELIABILITY 

5.3 TEST 3 - WRITE COMPATABILITY/WRITE At had 

5.4 TEST 4 - READ COMPATABILITY/READ UTILITY 
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DEVICE INFORMATION 
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6.3 BIT DEFINITIONS FOR TSVOS/TSOS REGISTERS 
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6.3.2.1 TSVOS EXTENDED DATS BUFFER REGISTER (TSDBX) 
6.3.5 EXTENDED STATUS REGISTER O (XSTATO) 

6.3.4 EXTENDED STATUS REGISTER 1 (XSTAT1) 
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SEQ 0004 


6.3.5 EXTENDED STATUS REGISTER 2 (XSTAT2) 
6.3.6 EXTENDED STATUS REGISTER 3 (XSTAT3) 
6.3.7 EXTENDED STATUS REGISTER 4 (XSTAT4) 


7.0 DIAGNOSTIC HISTORY 


1.0 GENERAL INFORMATION 


THIS PROGRAM CAN BE USED AS A BASIC FUNCTION TEST, A DATA RELIABILITY 
TEST, OR A COMPATABILITY TEST. 


1.1.2 STRUCTURE OF PROGRAM 


THIS DIAGNOSTIC IS A SINGLE PROGRAM 
FROM THE STANDPOINT OF THE DIAGNOSTIC USER, BUT IT CONTAINS A CONTROL 
MODULE RELEASED INDEPENDENTLY AS A DIAGNOSTIC SUPERVISOR. 


1.1.5 MEMORY MAP 


Oo! ‘ 
' t 
' VECTOR } 
AREA 
eS eee ‘ 
: ' 
4 e 
STACK ; 
2000 !-------------- : 


41000 !-------------- 
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SEQ 0005 


T7777 Swe - ee ee oe eee ee 


FREE MEMORY SPACE FOR WR/RD BFRS OR OTHER PUROSES 
IS ALLOCATED BY THE SUPERVISOR ON REQUEST OR CHOOSEN 
MW omic TO RESIDE BETWEEN THE DIAG AND THE 


1.1.4 DIAGNOSTIC INFORMATION 


1.1.4.1 


1.1.4.2 


1.1.4.3 


1.1.4.3. 


SCOPE 


THIS DIAGNOSTIC CAN TEST ONE CONTROLLER AND UP TO 2 DRIVES. THE 2 DRIVES 
ARE ASSIGNED LOGICAL DRIVE NUMBERS O - 1 BY THE DIAGNOSTIC. 


THERE ARE S TESTS IN THIS PROGRAM: 


TEST 1 - BASIC Seg 

TEST 2 - DATA RELIABILITY 

TEST 3 - WRITE COMPATABILITY/WRITE At Ske 

TEST 4 - READ COMPATABILITY/READ UTILITY 

TEST 5 - RANDOM/OPERATOR SELECTED SEQUENCE UTILITY. 


ERROR RECOVERY 

ERROR RECOVERY IS PERFORMED ON READ ee AND WRITE TAPE MARK FUNCTIONS 

UNLESS ERROR RECOVERY IS INHIBITED BY THE OPERATOR AT START UP TIME. 

THE READ FORWARD/READ REVERSE RETRY LImtt IS 16 (8 IN THE SAME DIRECTION 

AND 8 IN THE OPPOSITE DIRECTION). FOR MORE DETAILED INFORMATION ON ERROR RECOVERY 

PROCEDURES, REFER TO SECTION 3.0 (ERROR REPORTING) OF THIS LISTING. 

WRITE ERROR RECOVERY 

THERE ARE 2 , SELECTABLE WRITE-ERROR-RECOVERY ALGORITHMS USED BY THIS DIAGNOSTIC: 
1. MEDZA/OPERATIONAL SELECTIVE ALGORITHM 
2. OPERATIONAL ALGORITHM 


BY DEFAULT THE DIAGNOSTIC SELECTS THE FIRST ALGORITHM TO IDENTIFY 
MEDIA RELATED WRITE ERRORS FROM OPERATIONAL ONES. 


TO SELECT THE re ALGORITHM 
ANSWER ' TO CHANGE SW (CL) ? 
ANSWER 1 TO BAD TAPE SPOT DETECTION (L) Y ? 


IF ERROR RECOVERY IS INHIBITED, THE LATTER QUESTION IS NOT ASKED 
AND BOTH ALGORITHMS ARE BYPASSED. 


1 MEDIA/OPERATIONAL SELECTIVE WRITE-ERROR-RECOVERY ALGORITHM 
SCOPE 
THIS ALGORITHM IDENTIFIES MEDIA RELATED WRITE ERRORS FROM 


TSVOS DATA RELIABILITY MACRO VOS.03 Friday 22-May-87 08:12 Page 3-4 


SEQ 0006 
276 OPERATIONAL ONES. 
278 ALGORITHM 
280 A WRITE RETRY SUBROUTINE IS CALLED BY THE RECOVERABLE ERROR SUBROUTINE WHICH IS 
281 ENTERED UPON DETECTIION OF A WRITE RECOVERABLE ERR 
282 THE WRITE RETRY SUBROUTINE ATTEMPTS TO REWRITE THE RECORD IN SAME SPOT ON TAPE 
284 
285 IF ALL 4 REPEATS ARE GOOD, THE RECORD IS CONSIDERED AS RECOVERED AND 
286 A RECOVERABLE WRITE ERROR IS LOGGED AT THAT RECORD NUMBER. 
. arn ae IF ANY OF THE 4 REWRITE ATTEMPTS FAIL, THE ROUTINE WILL ERASE THE BAD RECORD, AND LO 
289 BAD SPOT AT THAT RECORD NUMBER. THE ROUTINE WILL THEN ATTEMPT TO 
290 WRITE THE RECORD AGAIN 3 3 INCHES FURTHER DOWN TAPE AND 
291 RETRY THIS SEQUENCE 4 TIMES, FOR UP TO 4 REPEATS EACH. 
293 IF A RECORD CANNOT BE WRITTEN WITHOUT RECOVERABLE ERRORS AFTER 4 RETRIES, 
294 THEN THE ROUTINE WILL ERASE THE RECORD AND REPORT RETRY FAILED ON BAD SPOT. 
296 THE RECOVERABLE ERROR SUBROUTINE THEN CONTINUES TO CALL THE WRITE 
297 RETRY SUBROUTINE, WHICH REISSUES THE GROUP OF 4 RETRIES, 
298 UNTIL THE RECORD IS RECOVERED OR 20 BAD SPOTS HAVE BEEN LOGGED 
300 TWENTY (20) BAD SPOTS MAXIMUM ARE ARE ALLOWED PER BOT TO EOT PASS OF TAPE. 
301 WHEN 20 BAD SPOTS HAVE BEEN L WETHER ON THE SAME RECORD NUMBER OR NOT, 
302 TAPE IS CONSIDERED DEFECTIVE: A 7 Bhp TAPE 0 OVERFLOW MESSAGE IS PRINTED 
303 AND THE UNIT IS REWOUND, THEN DR 
305 DURING THE RECOVERY PROCESS, IT IS NECESSARY TO PERFORM SEVERAL T 
306 POSITIONING OPERATIONS: SPACE REVERSE, ERASE. IF A POSITION ERROR 
307, IS DETECTED IN THE STATUS WORD DURING THOSE OPERATIONS, THEN THE RECOVERY ATTEMPT IS 
: AN APPROPRIATE UNRECOVERABLE ERROR MESSAGE IS PRINTED AND THE UNIT IS DROPPED. 
310 ALL BADLY WRITTEN, RECORDS LOGGED WITH RECOVERABLE ERRORS ARE ERASED 
311 UNTIL RECOVERED, INCLUDING THE RECORD AT THE 20TH BAD SPOT 
312 SO THAT ALL RECORDS LEFT ON TAPE ARE KNOWN GOOD WRITTEN RECORDS. 
314 BAD SPOTS ARE ERASED WITH ERASE GAPS FROM 3 TO 12 INCHES PER RETRY GROUP. 
315 UP TO 20 FEET OF ERASE GAP COULD RESULT WHEN RETRYING TO RECOVER 
316 A SINGLE RECORD. 
317 THAT LONG STRETCH OF BAD TAPE WOULD THEN BE LOGGED WITH 20 
318 BAD SPOTS AT SAME RECORD NUMBER AND THE TAPE CONSIDERED DEFECTIVE. 
320 BAD SPOTS REPORTS 
322 IF THE PRINTING OF RECOVERABLE ERRORS IS ENABLED, THE BAD D sPoTs ON TAPE ARE 
323 IDENTIFIED AS THEY ARE DETECTED. SINCE THE BAD RECORDS ARE ERASED UNTIL RECOVERED. 
324 THE BAD SPOT ACTUALLY PRECEDES THE RECORD NUMBER Saat. SDENTIF IES IT 
325 THE NUMBER OF REPEATS AND RETRIES ATTEMPTED IS PRINTED, FROM WHICH THE 
326 LENGTH OF ERASE GAPS CAN BE DETERMINED: APPROXIMATELY 3 INCHES PER RETRY. 
328 THE STATISTICAL REPORT PRINTED AT THE END OF TEST 2 OR UPON A “PRINT” REQUEST, 
329 CONTAINS SUMMARY OF THE BAD SPOTS LOGGED ON THE CURRENT PASS OF TAPE. 
330 IN THAT REPORT COUNTS ARE CUMULATIVE FROM PASS 9 aPAss EXCEPT FOR 
33) THE NUMBER OF OF ADS epoTs. IT RELATES TO A “BOT TO EOT PASS" ONLY 
332 FOR THIS PURPOSE, A "TAPE PASS” IS A WRITE PASS FROM pore TO cor. OR FROM 


Hi 
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SEQ 0007 
333 BOT To WHERE THE DIAGNOSTIC IS HALTED BEFORE REACHING EOT. 
334 DON'T CONFUSE THIS WITH A PASS BY THE SUPERVISOR WHICH IS DEFINED AS A RUN THROUGH A 
LL THE TESTS REQUESTED 
335 ON ALL UNITS SELECTED. THOSE PASSES ARE IDENTIFIED AS “PASS” AND “EOP”. 
337 THE NUMBER OF WRITE RETRIES. CUMULATIVE FROM PASS TO PASS 1s, A R GLOBAL 
338 COUNT OF HOW MANY TIMES THE GROUP OF 4 RETRIES HAS BEEN CALLE 
340 THE NUMBER OF WRITE RECOVERABLE ERRORS EXCLUDES BAD TAPE SPOTS 
$41 AND REFLECTS THE SPECIFICATIONS OF THE HARDWARE UNDER TEST 
343 TO CLEAR CUMULATIVE COUNTS, ANSWER ‘Y' TO: CLEAR COUNTERS (L) Y ?. 
344 THE BAD TAPE SPOTS COUNT IS THEN CLEARED WHEN WRITING THE TAPE FROM BOT. 
346 IF TEST 2 IS HALTED, THEN RESTARTED OR CONTINUED, THE RECORD COUNT 
347 IS RESET TO ZERO AND THE BAD SPOT ID SHALL FOLLOW THAT RESET COUNT. 
349 SINCE ALL WRITTEN RECORDS ARE KNOWN GOOD, THE READ ERRORS CAN 
350 BE ATTRIBUTED TO TRANSIENT NOISE, TRANSIENT ELECTRICAL MALFUNCTIONS, 
33 OR CONTAMINANTS ON TAPE AS OPPOSED TO TAPE DEFECTS. 
353 THE SAME RECORDS MUST BE WRITTEN FROM TAPE PASS TO TAPE PASS 
334 FOR THE BAD SPOTS ID TO REMAIN CONSISTENT IN THOSE TAPE PASSES. 


EXAMPLE OF A PRINT OUT FOR A BAD SPOT ON TAPE: 


CVTSE SFT ERR 00009 ON UNIT OO TST 002 SUB 000 PC: 012100 
359 RECOVERABLE ERROR 
360 WRT CMD FAILED - at 3 O PASS: 1 RECORD: 6 


361 PREVIOUS CMD WAS 

362 CMDPKT TSBA RFC TSSR TOC 

363 100205 002406 000000 100210 4 

364 026600 

365 000000 

366 003107 

367 XxSTO XST1 XxST2 XSTS XST4 

368 000002 100400 000000 

369 SUSPECT BAD SPOT AFTER 1 RETRY, 2 REPEAT 

370 SUSPECT BAD SPOT AFTER 2 RETRY, 1 REPEAT 

371 SUSPECT BAD SPOT AFTER 3 RETRY, 1 REPEAT 

372 T BAD T AFT 7 RETRY, 3 REPEAT 
RETRY FAILED ON BAD ERASED! 

374 CT BAD SPOT AFTER i “RETRY, 1 REPEAT 

Le SUSPECT BAD SPOT AFTER 2 RETRY, 1 REPEAT 

377 

378 CVTSE SFT ERR 00009 ON UNIT 00 TST 002 SUB 000 PC: 012100 

379 RECOVERABLE ERROR 

380 WRT CMD FAILED - UNIT O- PASS: 1 RECORD: 10210 

381 PREVIOUS CMD WAS WRT 

382 CMDPKT TSBA TSSR _ TCC 

383 100205 002406 000000 100210 4 

384 026600 

385 000000 

386 004000 

387 XSTO XST1 XST2 XST3 XST4 

00010 000000 000000 


388 000350 000002 1 
389 RECOVERED ON RETRY @ 1 
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SEQ 0008 

390 t 
391 DS >PRI 
392 
393 TO PA 1  RECORD:10210 
394 YTES WRITTEN 0,272,279,691 
395 BYTES READ REV 0.301.123.654 

BYTES READ REV 0,301,120,381 
397 WRT ROR ROF 
398 RECOVERABLE ERRORS 1 0 0 
399 UNRECOVERABLE ERRORS 0 0 0 
400 WRITE RETRIES 3 
402 2 BAD SPOTS THIS TAPE PASS PRECEDING RECORD @: 
404 SPEC COND HARD FATAL COMPARE 
405 2 0 0 0 
406 DR> 
407 
408 THIS EXAMPLE SHOWS: 
409 RECORD 6 RECOVERED ON 2ND RETRY GROUP 
410 THE 2 BAD SPOTS RESIDE IN A 18 INCH ERASE GAP BETWEEN RECORDS 5S AND 6 
411 RECORD 10210 RECOVERED ON 1ST RETRY OF 4 GOOD REPEATS 
412 3 WRITE GROUP RETRIES ATTEMPTED, RESULTING IN: 
413 1 RECOVERABLE WRT ERR FROM RECORD 10210 
414 2 BAD SPOTS BETWEEN RECORDS S AND 6 
ai? 
418 1.1.4.3.2 OPERATIONAL WRITE-ERROR-RECOVERY ALGORITHM 
420 WHEN THIS ALGORITHM IS SELECTED, THE TSVOS WRITE RETRY COMMAND 
421 is ISSUED UP TO 16 TIMES OR UNTIL RECORD IS RECOVERED, ON 
422 A_WRITE RECOVERABLE ERROR. THE WRITE RETRY COMMAND CONSISTS 
423 OF A SPACE REVERSE OVER THE BAD RECORD, T OF 3 INCHES 
424 OF TAPE AND REWRITE OF THE RECORD. THAT COMPOSITE C 
425 DOES NOT ALLOW THE DETECTECTION OF BAD 
426 THEREFORE NO BAD TAPE SPOTS STATUS IS PRINTED. 
428 IF RECORD CANNOT BE RECOVERED AFTER 16 WRITE RETRY COMMANDS, 
429 A RETRY LIMIT EXCEEDED IS FLAGGED AND UNIT IS DROPPED. 
431 
432 1.1.4.4 DIAGNOSTIC TIMING ADJUSTMENT 
434 A NUMBER OF SUPERVISOR TIMING DELAY MACROS, KNOWN AS WATCH DOG 
435 DELAYS, ARE CALLED BY THE DIAGNOSTIC TO WAIT FOR VARIOUS C 
436 COMPLETION. THESE AYS ARE NOT CALIBRATED AND SIMPLY EXPANDS 
437 INTO AN INLINE NESTED LOOP PAIR. THE COUNT FOR THE OUTER L 
438 COMES FROM THE VARIABLE ARGUMENT SUPPLIED BY THE DELAY CALLS. 
439 THE COUNT FOR THE INNER LOOP COMES FROM THE FIXED “HEADER” 
440 ELEMENT “L$DLY”. 
441 AS THE DIAGNOSTIC IS RUN ON DIFFERENT CPU'S, THESE DELAYS WILL 
442 VARY IN LENGTH WITH MEMORY SPEED. 
444 IF TIME-OUT OCCURS WHEN NO APPARENT MALFUNCTIONS IN THE TAPE 
445 UNIT IS EVIDENT, ALL TIMINGS OF THE DIAGNOSTIC MAY BE ADJUSTED 


446 TO MATCH MEMORY SPEED AND NOT RESULT IN TIME-OUTS, BY PATCHING 
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SEQ 0009 


THAT FIXED DELAY ELEMENT "L$DLY”. 


A PRESET COUNT OF SOO RESIDES AT "L$DLY” IN LOCATION 2116 OF THE 
"HEADER" SECTION. 


1.2 SYSTEM REQUIREMENTS 


PDP-11/23 PROCESSOR WITH 32K OR MORE OF MEMORY 
CONSOLE DEVICE (VTS2,LA36,ETC. ) 

PROGRAM LOAD DEVICE 

TSVOS/TSOS 


1.2.2 SOFTWARE REQUIREMENTS 


DIAGNOSTIC SUPERVISOR 


1.3 RELATED DOCUMENTS AND STANDARDS 


DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 


CIQPMAO XXDP+ PROGRAMMER'S MANUAL; DOCUMENT NUMBER AC-S296A-AC 
DATE: 14 JULY 1960. 


2. TSVOS TRANSPORT SUBSYSTEM USER'S GUIDE; DOCUMENT NUMBER EK-TSVOS-UG-001 
DATE: AUGUST 1982 


3. TSVOS antw,,- 9 TECHNICAL MANUAL; DOCUMENT NUMBER EK-TSVOS-TM-001 


DATE: AUGUST 


4. TSVOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL; DOCUMENT NUMBER EK-TSVOS-IN-001 


DATE: AUGUST 1982 


1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 


ORDER OF HOST CPU DIAGNOSTIC USAGE: 
1) CONTROL LOGIC PROGRAM - ALL TESTS. 
(VTSA,VTSB,VTSC,VTSD) 
2) DATA RELIABILITY PROGRAM: 


A) BASIC FUNCTION TEST. 
B) DATA RELIABILITY TEST. 


K1 
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SEQ 0010 
504 
306 ASSUPT 
507 2 beeen 
509 THE HARDWARE OTHER THAN THE SUBSYSTEM BEING TESTED IS ASSUMED TO WORK 
310 PROPERLY. FALSE ERRORS MAY BE REPORTED IF THE PROCESSOR, MEMORY, ETC., 
S11 DO NOT FUNCTION PROPERLY. 
sis VTSA,VTSB,VTSC, AND VTSD HAVE ALL SUCESSFULLY RUN WITHOUT ERRORS. 


Li 


TSVOS DATA RELIABILITY MACRO VOS.03 Friday 22-May-87 08:12 Page 4 


SEQ 0011 


2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 
(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER’S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 
RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 
CONTINUE CONTINUE AT TEST THAT WAS INT TED CAFTER tC) 
PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 
ADD ACTIVATE A UNIT FOR TESTING CALL UNITS ARE 


CONSIDERED re BE ACTIVE AT START TIME 

DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION CIF IMPLEMENTED 
BY THE DIAGNOSTIC) 

DISPLAY TYPE A LIST OF ALL vey INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS 

ZFLAGS CLEAR ALL FLAGS 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF “START”. 


OPERATOR COMMANDS 


THE TSVOS DIAGNOSTIC IS A PDP-11/23 DIAGNOSTIC SUPERVISOR COMPATIBLE 
PROGRAM ALL LOADING AND RUNTIME INST RUCT IONS CAN BE REFERENCED IN THE 

POP-11 PROGR . PROGR 

AC-S296A-AC. THE USER ENTRY IS IN QUOTES. 


BOOT THE DIAGNOSTIC XXDP MEDIA 


CHMDLBO XXDP+- Di MONITOR 28K 

BOOTED VIA UNIT O 

ENTER DATE (DD-MMM-YR): ” enter date or just <cr> “ 
ny ADDRESS: 153726 


Z N “ <cor> * 
cr>_ * 
THIS is xibes’ TYPE “H" OR “H/L” FOR DETAILS 


VTSEAOPTNORS LOADED 
aE RUN-TIME SERVICES REV D. APR 79 


CVTSE-D-0 
TSVOS gh RELIABILITY 
UNIT IS TSVOS 


M1 
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SEQ 0012 


SWITCHES 


THERE ARE_ SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED eg | WITH A BRIEF DESCRIPTION OF EACH. 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD” 


SWITCH EFFECT 


/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMB FOR EXAMPLE - /TESTS:1:5:7-10. 
THIS LIST WILL CAUSE TESTS 1.5,7,8,9,10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 
/PASS : DDDOD EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 
/FLAGS:FLGS SET SPECIFIED FLAGS. 
/EOP : DDDDD REPORT END OF P&SS MESSAGE AFTER EVERY 
DDDDD PASSES ONLY. 1 TO 64000 
/UNIiS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 
USE UNITS 0.5,10,11.12 (UNIT NUMBERS = 0-63) 
EXAMPLE OF SWITCH USAGE: 
START/TESTS: 1-5/PASS: 1000/EOP : 100 
THE EFFECT OF THIS COMMAN™ WILL BE: 132 TESTS 1 THROUGH S WILL BE 
ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE “/TES:1-5" INSTEAD OF “/TESTS:1-5". 


ee IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 


lll el ee ee ee ee ee ee ee 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
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LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS . 
ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 

ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZF!.AGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE a etton THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH 


FLAG EFFECT 

HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS 

IBR+ INHIBIT ALL ERROR REPORTS EXCEPT 
FIRST LEVEL (CFIRST LEVEL CONTAINS 
ERROR PC, TEST AND UNIT) 

IXE* INHIBIT E REPORTS (THOSE 
CALLED BY 

PRI DIRECT MESSAGES TO LINE PRINTER 
PRINT TEST NUMBER AS TEST EXECUTES 

BOE “BELL” ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 

IOR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE THE FLAG SHITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP NHIBIT ERROR REPORTS 
AND TYPE A “BELL” ON ERROR, YOU MAY RAY Use: THE FOLLOWING STRING: 


/FLAGS:LOE: IER: BOE 


2.1 HARDWARE PARAMETERS 


ON A “N*“ RESPONSE TO “CHANGE we THE DIAG SHALL RUN ASSUMING 
ONE UNIT AT TSDB = 172520 WITH A VECTOR = 224 AND DRIVE=0. 


ON A _“Y" RESPONSE TO “CHANGE HW?” QUESTION. THEN 

THE FOLLOWING QUESTIONS WILL BE ASKED ON A START COMMAND. THE 

VALUE LOCATED TO ne LEFT OF Ay QUESTION MARK IS THE DEFAULT 
VALUE THAT WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE. 

TSOB ADDRESS CO) 172520 ? 

VECTOR (0) 224 ? 


SELECT DRIVE 0-1 (0) ? 


SE@ 0015 


Be 


TSVOS DATA RELIABILITY MACRO VOS.03 Friday 22-May-87 08:12 Page 4-3 


SEQ 0014 


THE VALIDITY OF THESE PARAMETERS CAN BE CHECKED BEFORE RUNNING THE TESTS 
BY SETTING THE FLAG “ADR” ON A STA, RES OR CONC 

THE SO CALLED AUTO DROP CODE SHALL THEN BE EXECUTED AFTER THE INIT CODE 
AND BEFORE THE HARDWARE TESTS ARE RUN. T CODE FIRST TESTS THE ADRRESS 
OF THE TSOB(S). IF NO RESPONSE, IT DROPS WTME UNIT(S) IMMEDIATELY 

WITH THE FOLLOWING MESSAGE: 


BUS TRAP AT XXXXXX € XXXXxXX = TSDB AD ) 
INTERFACE BAD OR NOT SET TO ABOVE ADDRESS. 


ON A_RESPONSE FROM THE INTERFACE, THE UNITS THAT ARE NOT READY OR NOT 
ON-LINE ARE DROPPED IMMEDIATELY. THE HARDWARE TESTS SHALL THEN 
BE RUN ON RESPONDING UNITS. 


IF THE “ADR” FLAG IS NOT SET, THE READY AND OFF-LINE STATUS OF THE 
DRIVE IS CHECKED. A MESSAGE SHALL BE PRINTED EVERY SO OFTEN 

TO WARN THE OPERATOR ‘OF ,ORIVES BEING NOT READY OR OFF-LINE. THESE DRIVES 
SHALL BE DROPPED AFTER A REASONABLE AMOUNT OF TIME. 


2.2 SOFTWARE PARAMETERS 


THE aL Oe ves trons ARE —- WHEN ONE ANSWERS YES TO THE CHANGE SOFTWARE 
QUESTION ON A START, RESTART CONTINUE. 
THEY ALLOW FLEXABILETY IN THE WAY THE PROGRAM BEHAVES. 
CLEAR COUNTERS (L) Y ? 
RESET RANDOM VARIABLES (L) N ? 
PRINT RECOVERABLE ERRORS (L) N ? 
HALT AFTER EACH CMD (L) N ? 
INHIBIT RECOVERY (L) N ? 
BAD TAPE SPOT DETECTION (L) Y ? 
DISABLE INTERRUPTS (L) N ? 
INHIBIT RFC ERROR REPORTS (L) N ? 
CHANGE CMD SEQUENCE (LL) N ? (SEE NOTE1: ) 
DEFAULT SWITCH SETTINGS (L) Y ? 
100IPS (L) N ? 
WRITE BUFFEKANG (L) N ? 
READ BUFFERING (L) N ? 
Answering no to the defauit switch question will ceuse the 
100 ips question to be esked. 
Answering yes to the 100 ips question will inhibit the lest 
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+49 two questions. 
746 Answering no to the 100 ips question will cause the write 
van buffering question to be asked. 
749 Answering yes to the write buffering question will inhibit the 
Le last question. 
7S2 Answer i no to the write ype | question will cause the 
ey read buffering question to be ask 
755 
756 NOTE1: THIS QUESTION SHOULD BE ANSWERED (N) UNLESS AN 
757 OPERATOR SELECTED SEQUENCE IS TO BE EXECUTED. 
758 IF THIS QUESTION WAS ANSWERED Y, THE FOLLOWING 
739 QUESTIONS MUST BE ANSWERED OR DEFAULTED WITH A <CR> ONLY: 
761 CHARACTERISTICS CODE (0) 40 ? (0,20,40,200) COCTAL) 
703 BRE COUNT (0) 1 ? si-s73 fPeearn 
764 @ OF at tone (D0) 1 ? 6+ $x) SDEETMAL 3 
765 PATTERN (D) ? (0-8) (DECIMAL ) 
766 CMD/3 (D0) 4 ? (1-27) (DECIMAL ) 
767 BRF COUNT (0) 2048 ? €1-2K) CDECIMAL ) 
768 @ OF OPERATIONS (0D) 32000 ? o3-agn? YAS 
769 PATTERN ¢02 7? 0-8) DECIMAL 
770 CMD/4 (D ? ot -sr3 oS 
771 BRF C 492 2048 ? 1-2K DECIMAL 
772 @ OF OPERATIONS (0D) 32000 ? €1-32K) (CDECIMAL ) 
73 PATTERN (0D) 7 ? (0-8) (DECIMAL ) 
rs “eat fo} 20ss 2 33 | Seca} 
776 OF OPERA Done (D0) 32000 ? ¢t Sox) cDeCTrAL 3 
777 PATTERN (D) 7 ? (0-8) DECIMAL ) 
358 BR COUN 5 1? ¢3 5x3 cDecira 3 
780 OF OPERATIONS (D) 1 ? (€1-32K) (CDECIMAL) 
781 PATTERN (0D) 7 ? 0-8) CDECIMAL ) 
CMD/7 (0) 7. ? +3 DECIMAL 
783 BRF D) 2048 ? 1-2 peetnae 
784 @ OF OPERATIONS (0D) 32000 ? i- >) (COECIMAL 
786 7 } C3757) (DECIMALS 
787 D) 2048 ? 1-33 ¢ DECIMAL 
788 ONS (0D) 32000 ? i- >) (CDECIMAL 
ree 7? 0-8) DECIMAL 
791 A CHARACTERISTIC CODE OF 40 
792 TABL IF A 
La. ate ate OPERATOR oR oo 
795 Pact IsSTIcs 
736 Phd ee roe f hee are 
798 CONTROL 2 (tZ) CAN BE ENTERED TO TERPUNATE 's car tuane DIALOGUE. 
800 2.2.1 COMMAND LIST FOR USE IN SOFTWARE DIALOGUE. 
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SEQ 0016 
a 
802 CODE COMMAND DESCRIPTION 
804 1 = DRI DRIVE INITIATE. 
805 >= ROF READ FORWARD. 
806 3 = ROR READ REVERSE. 
807 4 = WRT WRITE. 
808 S = wtv WRITE/VERIFY. IE. WRITE N RECORDS; READ REVERSE AND CHECK 
809 N RECORDS OF DATA; READ FORWARD AND CHECK N RECORDS. 
810 6 = SRF SPACE RECORDS FORWARD. 
811 7 = SRR SPACE RECORDS REVERSE. 
B12 8 = RNR READ NEXT REVERSE, IE. SPACE FWD, READ REV. 
813 9 = RNF READ NEXT FORWARD, IE. READ FWD, SPACE REV. 
814 10 = RPF READ PREVIOUS FWD, IE. SPACE REV, READ FWD. 
815 11 = RPR READ PREVIOUS REV, IE. READ REV, SPACE FWD. 
816 12 = WRR WRITE RETRY. 
817 13 = RWD REWIND . 
818 14 = MBR MESSAGE BUFFER RELEASE. 
819 1S = WIM MARK 
B20 16 = WTR 
821 17 = SFF 
822 18 = SFR 
823 19 = GES 
824 20 = €RS 
S58 22 = Cin Che TAPE 
827 23 = SCH SET DEVICE CHARACTERISTIC. WHERE BRF 
828 300 = ENABLE SKIP TAPE MARKS STOP (STOP oat nach ear) 
829 40 = NTERRUPTS 
839 20 = 
831 SEE 
832 25 = uMP 
833 ABL BRF FIELD. 
834 THE ERED IN THE @ OF OPERATIONS FIELD 


835 26 = OLY DELAY °N* MILISECONDS WHERE N IS DEFINED IN 

837 27 = END ENO 

839 

840 2.2.2 DATA PATTERN LIST FOR USE IN SOFTWARE DIALOGUE. 

842 PATTERN @ DESCRIPTION. 

843 

844 0 

845 1 

B46 : 

aes FIELD OF “O"'S. 
848 4 FIELD OF “1"'S. 
849 : TH ALTERNATE BYTES COMPLIMENTED. 
851 7 

852 4 NO PATTERN GENERATION. 
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2.3 EXAMPLES OF SOFTWARE DIALOGUE 


CHANGE HW (L) ? 

@UNITS (D) ? 

TSOB ADDRESS (0) 172520 ? 
VECTOR (0) 224 ? 

SELECT DRIVE 0-1 (0) ? 


a. meets ty ON A START, RESTART OR CONTINUE THE 


2.3.1 BASIC FUNCTION AND DATA RELIABILITY WITH ALL ERROR REPORTING ENABLED 


2.3.2 TO SET UW A SCOPE LOOP FOR A FAILURE IN BASIC FUNCTIONS. 


SUPERVISOR 
S CHANGES 7 O THE SOFTWARE OPERATING PARAMETERS, AS 


CHANGE SW (L) ? 


RECEIVE PROMPT (DR>) 
ENTER STATES 13 -<Q)> 


STIONS. 
PROCEED WITH THE FOLLOWING DIALOGUE: 


CHANGE SW (L) ? 


CLEAR COUNTERS (L) N ? 
SET RANDOM VARIABLES (L) 
OVERABLE ERROR 






I 
CHANGE cH. onc (L) N 
DEF AULT SuITCN TINGS (L 


CEIVE 


RE PROMPT (DR>) 
pb ba F Bg SE a ISR : IDU<CR> 
PROCEED WITH THE FOLLOWING DIALOGUE : 





8 
DISABLE INTERRUPTS (L) N 


“y 


? 
>v¥? 






SEQ 0017 
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INHIBIT RFC ERROR “wiet (L) N ? 
CHANGE SEQUENCE 
DEFAULT SWITCH SETTINGS (L) ¥ ? 


Y<CR> 
N<CR> 
<CR> 


2.3.3 TO SET UP A SCOPE LOOP FOR A FAILURE IN DATA RELIABILITY 


A) 


IVE 


CHANGE S 

CLEAR cou OUNTERS (L) N ? 

RESET RANDOM VARIABLES (L) N ? 
PRINT RECOVERABLE S (L)N? 
HALT AFT CMD (L) N ? 


(L) N ? 
BAD TAPE SPOT DETECTION (L) Y ? 
DISABLE INTERRUPTS (L) N ? 
INHIBIT RFC ERROR REPORT (L) N ? 
CHANGE CMD SEQUENCE (L) N ? 
CHARACTERISTICS CODE (0) 40 ? 
gO/s CO 


POP11/23 
MOS MEMORY 


LA36 
TSVOS/TSOS 


2.4.2 TEST EXECUTION TIMES (2400 FT. TAPE) 


BASIC ett - 





30 SECONDS PER P 


RECE PROMPT (DR>) 
B) ENTER STA/TES:S/FLA: IER: ISR: IDU/EOP: 1000<CR> 
C) ANSWER HARDWARE 
PROCEED WITH THE FOLLOWING DIALOGUE: 


Y<CR> 
Y<CR> 
N<CR> 
N<CR> 


> 
4<CR> (WRITE) 
> 


27<CR> CEND) 


DATA RELIABILITY - 45 MINUTES PER PASS. 





20 MI 





AD COMPATABILITY 
ANDOM/ OPERATOR SELECTED SEQUENCE - 30 MINUTES PER PASS. 
ALL EXECUTION TIMES ARE SHOWN FOR ONE DRIVE OPERATION. 


SEQ 0018 
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968 
969 3.0 ERROR INFORMATION 

971 

972 

973 3.1 ERROR REPORTING 

Ae Sa ee it Rng oes ANY rater deca 

976 | ALL ERROR REPORTS EXCEPT FOR ERRORS #1 AND #17 INCLUDE A DUMP 

977 OF THE FOLLOWING INFORMATION: 

979 ERROR @, TEST @, SUBTEST ¢, pPROGRAN COUNTER. UNIT @, 

980 COMMAND ; VIOUS COMMAND, PASS COUNT OF 

981 RECORDS FRON BOT, RECORD READ COUNT tHe COMMAND PACKET, TSSR, 
982 TCC RFC, AND THE EXTENDED status REGISTERS 

983 (SEE > 3 ay 1 “eon LIST OF COMMANDS) 

985 STANDARD ERROR REPORT FORMAT: 

987 CVTSE SFT ERR XXXXX TST XXX SUB XXX PC: XXXXXX 

988 (ASCII ERROR MESSAGE) 

989 XXX CMD FAILED - UNIT X PASS: XXXXX RECORD: XXXXX 

990 PREVIOUS CMD WAS XXX * RECORD READ: XXXXX =» 

991 CMOPKT TSBA RFC TSSR TCC 

992 XXXXXK KMKKKKK RMKKKKK RMKKKXKX X 

99% XXXXXX 

994 XXXXXX 

995 XXXXXX 

996 XSTO XSTI XST2  XST3  XST4 

+4 XXXXKXK MKKKKK XRMKKKKK RMKKXKKK KKKKKX 

999 

ret * CAUTION # 

1002 INTERPRET THAT “RECORD READ” COUNT WITH CAUTION. 

1003 IF VERY DIFFERENT FROM RECORD COUNT TRACKED BY THE DIAGNOSTIC 
1004 TAPE POSITION IS NOT NECESSARELY LOST. ERRORS IN READING THAT 
1005 RECORD MIGHT HAVE CAUSED RECORD COUNT TO BE ERRONEOUSLY 

1006 READ FROM TAPE. 

1007 IN TEST 2, IF DIAGNOSTIC IS RESTARTED OR CONTINUED, RECORD COUNT 
1008 IS RESET TO ZERO ALTHOUGH THE TAPE IS NOT REWOUND. THIS IS 
1009 NECESSARY BECAUSE THERE IS NO ACCURATE WAY TO DETERMINE 

1010 ON WHAT RECORD COUNT OF WHICH UNIT THE DIAGNOSTIC WAS HALTED 
1011 BEFORE RESTARTING OR CONTINUING . 

1012 IT Is SUGGESTED THAT A “PRINT” BE REQUESTED WHEN HALTING DIAG 
1013 TO GET A PRINT OF THE RECORD COUNT WHEN HALTED. 

1015 EXAMPLE OF AN ERROR REPORT: 

1017 CVTSE SFT ERR 00009 TST 002 SUB 000 PC: 010606 

1018 RECOVERABLE ERROR 

1019 WRT CMD FAILED - UNIT 2 PASS: 2 RECORD: 254 

1020 PREVIOUS CMD WAS WRT 

1021 CMDPKT TSBA RF TSSR TCC 

1022 100005 002324 605000 100210 4 

1023 051766 


3.1 


5.2 
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000371 
XSTO XST1 XST2 XST3 XST4 
000350 000002 100004 000000 040055 


ERROR #1 - COMMAND PACKET ADDRESS NOT ON A MODULO 4 BOUNDRY: 


IF THIS wo IS REPORTED, THE PROGRAM DID NOT LOAD PROPERLY 
conk ae oy 7 oT SYSTEM FATAL ERROR AND THE PROGRAM MUST BE RELOADED TO 


ERROR #2 - TSOS NOT READY: 


BEFORE ANY COMMAND IS ISSUED TO Ly. TSOS, THE SUBSYSTEM READY 
BIT IN THE TSSR IS CHECKED. IF THE we IS NOT SET, THE PROGRAM 
REPORTS THE NOT READY ERROR. THIS IS A FATAL DEVICE ERROR AND 
optim ii aL L BE DROPPED FROM THE TEST SEQUENCE UNLESS THE IDU 


ERROR #3 - NO RESPONSE ERROR: 
ONCE THE TSDB Is LOADED THE TSOS HAS ONE MILLISECOND TO RESPOND 
OR THE PROGRAM S A NO RESPONSE ERROR. THIS IS A FATAL 
DEVICE ERROR AND T THe Bevice WILL BE DROPPED FROM THE TEST SEQUENCE 
UNLESS THE IDU OPTION IS USED. 
ERROR #4 - NO INTERRUPT ERROR: 
COMMAND WAS ISSUED AND NO INTERRUPT RECEIVED. THE PROGRAM REPORTS 
THAT NO INTERRUPT OCCURRED. THIS IS A FATAL DEVICE ERROR AND 
THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU 
OPTION IS USED. 
SPECIAL CONDITION ERRORS: 

DURING EXECUTION, AN INCIDENT OCCURS FORCING THE TSSR 


SPECIAL CONDITION BIT TO SET, THE PROGRAM WILL SELECT ONE OF 
OR HANDLING ROUTINES, SE MEPENDING ON THE TERMINATION CLASS 


THE TERMINATION CLASS CODES IN THE TSSR ARE PROCESSED AS FOLLOWS 
WHEN SPECIAL CONDITION IS SET 

ERROR #5 - TERMINATION CLASS CODE 0, UNDEFINED SPECIAL CONDITION 
THE ERROR IS REPORTED, A HARD E ERROR IS LOGGED 

AND THE PROGRAM PROCEEDS 

ERROR #6 - TERMINATION CLASS CODE 1, ATTENTION CONDITION 

THIS TCC INDICATES THAT THE DRIVE HAS UNDERGONE A STATUS CHANGE 


SEQ 0020 
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11 
1127 
1126 


8 


oe be ho ew be ee 
> bo bo he be pe be be pe 
SIRARURES 


SEQ 0021 


ERROR ANS Te DEVICE WILL Be DROPPED FROM THE Test CYCLE UNLESS 


HE IDU OPTION I 


3.1.5.3 ERROR #7 - TERMINATION CLASS CODE 2, TAPE STATUS ALERT 


A STATUS CONDITION HAS BEEN ENCOUNTERED THAT MAY HAVE SIGNIFICANCE 
TO THE PROGRAM. BITS OF INTEREST INCLUDE TMK, RLS, LET, ALL. EOT. 
ACTION TAKEN DEPENDS ON THE TEST BEING EXECUTED. 
IF THE CONDITION IS UNEXPECTED, THE ERROR IS REPORTED AND 

HARD ERROR IS LOGGED. THE PROGRAM PROCEEDS NORMALLY. 


3.1.5.4 ERROR #6 - TERMINATION CLASS CODE 3, FUNCTION REJECT 


THE SPECIFIED FUNCTION WAS NOT INITIATED. BITS OF INTEREST ARE 

OFL, VCK, BOT, ILC, WLE. ILA, AND NBA. THIS IS A FATAL 
DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE 
UNLESS THE IDU OPTION IS USED. 


31.5.5 ERROR #9 - TERMINATION CLASS CODE 4, RECOVERABLE ERROR 


TAPE POSITION IS ONE RECORD BEYOND WHAT ITS t-te WAS WHEN 
THE FUNCTION WAS INITIATED. RECOVERY PROCEDURE IS TO LOG THE 
ERROR AND ISSUE | APPROPRIATE RETRY COMMAND. IF RETRY LIMIT 
IS REACHED BEFORE THE ERROR IS RECOVERED, RETRY LIMIT EXCEEDED 
IS REPORTED AS DESCRIBED IN ERROR 014 BELOW. 


3.1.5.6 ERROR #10 - TERMINATION CLASS CODE 5S, RECOVERABLE ERROR 


TAPE POSITION HAS NOT CHANGED. RECOVERY PROCEDURE IS TO LOG THE 
ERROR AND RE-ISSUE THE ORIGINAL COMMAND. IF ys LIMIT IS 
REACHED BEFORE THE ERROR IS Se eneD RETRY LIMIT EXCEEDED 
IS REPORTED AS DESCRIBED IN ERROR 014 BELOW. 















3.1.5.7 ERROR @11 - TERMINATION CLASS CODE 6, UNRECOVERABLE ERROR 


TAPE POSITION HAS BEEN LOST. THE ONLY VALID RECOVERY 
REWIND AND START OVER AT BOT UNLESS THE TAPE HAS LABELS OR ee 





THERWISE DEVICE ERROR AND THE 
DEVICE WILL BE DROPPED FROM THE TEST CYELe UNLESS THE IDU OPTION IS USED. 


3.1.5.8 ERROR #12 - TERMINATION CLASS CODE 7, FATAL SUBSYSTEM ERROR 


THE SUBSYSTEM IS INCAPABLE OF PROPERLY PERF COMMANDS OR AT 
eo" ITs ght ahh IS SERIOUSLY QUESTIONABLE. ER TO THE 
FATAL Onss CODE ao, " THE TSSR REGISTER FOR ADDITIONAL INFOR- 
MATION ON - Pu. © My. TAL _ ERROR. THE DEVICE WILL BE DROPPED 
FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 
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1139 3.1.6 ERROR #13 - RFC NON-ZERO ERROR: 

114) IF, AFTER EXECUTION, THE RESIDUAL FRAME COUNT IS NON-ZERO, 
1142 ERROR IS REPORTED AND A HARD ERROR IS LOGGE 

1143 PROCEEDS NORMALLY. THE REPORTING AND LOGGING OF THESE ERRORS 
1144 IS OPTIONAL. 

1145 

1146 

1147 3.1.7 ERROR #14 - RETRY LIMIT EXCEEDED: 

1149 ON A WRITE COMMAND THIS IS A FATAL DEVICE 

1150 WILL BE DROPPED 

1152 ON A READ COMMAND THIS ERROR IS LOGGED AS A HARD ERROR AND 
1133 THE PROGRAM PROCEEDS NORMALLY. 

1155 

1136 3.1.8 ERROR 15 - TOO MANY INTERRUPTS: 

1158 IF MORE THAN ONE INTERRUPT OCCURS PER C 

1159 THIS IS A FATAL DEVICE ERROR AND 

1160 THE TEST CYCLE UNLESS THE IDU OPTION IS 

1162 

1163 3.1.9 ERROR 016 - CAPSTAN RUNAWAY: 

1165 CAPSTAN DID NOT STOP WITHIN ACCEPTABLE WINDOW AFTER LAST 

1166 COMMAND. THE ; PROGRAM WILL ISSUE A GET US COMMAND BEFORE REPOR 
1167 THE ERROR SO THAT THE DEAD TRACK FIELD IN EXTENDED STATUS REGISTER 2 
1168 WILL CONTAIN Ire TACH COUNT WHEN THE TAPE STOPPED. 

1169 THIS IS A FATAL DEVICE ERROR a 

1170 THE TEST CYCLE UNLESS THE IDU OPTION IS 

1172 

1173 3.1.10 ERROR #17 - DATA COMPARE ERROR: 

1175 IF A DATA VALIDATION ERROR OCCURS 

1176 THE PROGRAM PRINTS WHAT THE DATA SHOULD HAVE BEEN AND WHAT THE 
1177 DATA WAS, INTS T REC 

1178 ON. ONLY THE FIRST 10 BYTES IN ERROR 

1179 THE TOTAL @ OF BYTES I 

1180 LOGGED 

1181 

1182 

1183 3.2 ERROR HALTS 

ERS Se eee 

1186 ERROR HALTS ARE SUPPORTED PER DESCRIBED IN THE PREVIOUS SECTION 
1187 WITH /FLAG:HOE. THERE ARE NO OTHER HALTS. 

1189 4.0 PERFORMANCE REPORT 

BOQ yor det ns Ee aeeneeeeeennennnal 

1191 

119@ TX PASS:XXXXX RECORD: XXxXxx 

119 BYTES WRITTEN XXX, XXX, XXX, XXX 

1194 BYTES READ REV XXX. XXX. XXX) XXX 

1195 BYTES READ FWD XXX, XXX, XXX, XXX 


THE PROGRAM THEN 
ERROR THE DEVICE 
FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 


OMMAND, THIS ERROR IS REPORTED. 
THE DEVICE ui BE DROPPED FROM 


THE DEVICE WILL BE DROPPED FROM 
USED. 


DURING A WRITE/VERIFY COMMAND, 


PER RECORD 
PER RECORD IS ALSO PRINTED. 
AM PROCEEDS NORMALLY. 





SE@ 0022 


Ke 


TSVOS DATA RELIABILITY MACRO VOS.03 Friday 22-May-87 08:12 Page 5-6 















SE@ 0023 

1196 WRT ROR ROF 
1197 RECOVERABLE ERRORS XXXXX XXKKK  MKKKK 
ties UNRECOVERABLE ERRORS XXXXX XXKXKK KKKKX 
1200 SPEC COND HARD FATAL COMPARE 
1201 XXX 8 8=MKKKK 8 MKMKK MK KKK 
1202 
1203 
1204 
1205 
1206 
1207 5.0 TEST SUMMARIES 
Sa ae ee ees. Pe ee ee oe 
1209 
sit 5.1 TEST 1 - BASIC FUNCTIONS. 
121¢ EXECUTES AND VERIFIES CORRECT COMPLETION OF ALL TSOS FUNCTIONS. 
1214 SUBTEST 1 - SET CHAR, DRIVE INIT pet STATUS. 
1215 ¢ SET CHARACTERISTIC 
1216 . pale INITIATE. 
1217 ° T CHARACTERISTIC 20. 
1218 > eet STATUS 
1219 + a. Bn Ye RS 40. 
+551 * TSOS MICROCODE LEVEL CPASS 1 ONLY) 
1222 SUBTEST 2 - REWIND. 
1223 « REWIND. 
<< « REWIND AT BOT. 

26 SUBTEST 3 - WRITE/VERIFY. 
1227 ¢ WRITE/VERIFY 
1228 « WRITE/VERIFY PATTERN 2 
1229 « WRITE/VERIFY 
1230 « WRITE/VERIFY 
i231 « WRITE/VERIFY 
1232 « WRITE/VERIFY 
1235 « WRITE/VERIFY PATTERN O. 
1235 SUBTEST 4 - MATTE TAPE MARK, ERASE. 
1236 
1237 
12 
1239 
+ese « WRITE TAPE MARK "RETRY. 
1242 SUBTEST S - SPACE FIL 
1243 . 
1244 > 
1245 « SP FIL S REVER 
+286 « SPACE 2 FILES FORWARD . 


1248 SUBTEST 6 - SPACE RECORDS. 













1249 ° , 

1250 * SPACE 7 RECORDS FORWARD. 
1251 * SPACE 7 RECORDS REVERSE. 
1252 + SPACE 7 RECORDS FORWARD. 
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SEQ 0024 
1584 » SPACE 7 RECORDS REVERSE. 
1255 SUBTEST 7 - WRITE RETRY. 
1256 « REWIND. 
1257 « WRITE DATA. 
ise6 « WRITE RETRY. 
1260 SUBTEST 6 - READ REV RETRY. 
1261 « READ REVERSE 
1262 « READ NEXT REVERSE. 
acer « READ NEXT FORWARD. 
1265 SUBTEST 9 - READ FWD RETRY. 
1266 « RE F . 
1267 « READ PREVIOUS FORWARD. 
15e9 « READ PREVIOUS REVERSE. 
1270 SUBTEST 10 - CLEAN. 
1271 « CLEAN. 
He tts 
1274 SUBTEST ll - UAE TE vena SWAPPED DATA BYTES. 
1275 | WRITE/VERIFY EVEN LENGTH (RECORD 1). 
1276 « WRITE/VERIFY ODD LENGTH (CRECORD 2). 
1277 « SET DATA BYTE SWAP. 
1278 ¢ WRITE/VERIFY EVEN LENGTH ha AS 3). 
1279 e¢ WRITE/VERIFY ODD LENGTH CRECORD 4). 
+Set « CLEAR DATA BYTE SWAP. 
1282 SUBTEST 12 - READ SWAPPED DATA BYTES. 
1283 ¢« READ REV RECORD 4. 
1284 « READ REC 
1285 « SET DATA BYTE SWAP. 
1286 ¢« READ REV REC . 
1287 « READ RE i. 
1288 « READ FWD RECORD 1. 
1289 « READ F REC 2 
1290 « CLEAR DATA BYTE SWAP 
1291 « READ FWD RECORD 5. 
1292 « READ FWD RECORD 4. 


Me 
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1298 5.2 TEST 2 - DATA RELIABILITY. 
1296 1. THE TAPE IS INITIATED WITH THE FOLLOWING COMMANDS: 
1297 SET CHARACTERISTIC 40 
1298 REWIND 
1299 WRITE 64 RECORDS OF RANDOM LENGTH AND DATA 
300 2. WRITE AND READ COMMANDS ARE SELECTED AT RANDOM AND 
1301 EXECUTED A R ER OF TIMES WI 
1302 LENGTHS AND RANDOM PATTERN UNT OF TAPE IS REACHED 
1303 3. AT THE END OF EACH PASS, A REWIND COMMAND IS ISSUED AND 
1304 A PERFORMANCE REPORT IS PRINTED. 
1306 | NOTE: IF A RESTART COMMAND IS USED TO INITIATE 
1307 TEST 1, THE INITIAL REWIND COMMAND IS NOT ISSUED. 
1309 
1310 5.3 TEST 3 - WRITE COMPATABILITY/WRITE UTILITY. 
1312 REWINDS AND WRITES RECORDS OF RANDOM LENGTHS 
1313 AND RANDOM DATA FROM BOT TO EOT. 
1315 
tig 5.4 TEST 4 - READ COMPATABILITY/READ UTILITY. 
1318 REWINDS AND READS ENTIRE TAPE, FORWARD AND REVERSE. 
1320 
1323 5.5 TEST 5 - RANDOM/OPERATOR SELECTED COMMAND SEQUENCE. 
1323 A DEFAULT SEQUENCE OF REWIND/WRITE/READ REV/READ FWD/REWIND 
1324 OF ENTIRE TAPE 1s EXECUTED WITH RANDOM PATTERN 
1325 AND RECORD LENGTH OF 2048 BYTES. OPERATOR CAN ENTER 
1326 SEQUENCE OF COMMANDS UP TO SEVEN IF THEY DON’T WANT 
1327 DEFAULT SEQUENCE. 
1329 6.0 DEVICE INFORMATION TABLES 
1331 
1332 6.1 GENERAL 
Lig i oe Seas a Nem 
1335 THE TSOS TAPE SUBSYSTEM CONSISTS OF A TSVOS | Q@-BUS 
1336 CONTROLLER CONNECTED TO A TSOS DRIVE. FROM A SOFTWARE VIEWPOINT 
1337 THIS CONFIGURATION IS UNIQUE (FOR A Q@-BUS DEVICE) IN A NUMBER 
1333 fbeaay 
1340 A. ONLY ONE REGISTER MAY BE WRITTEN - TSDB (TAPE SYSTEM 
1343 DATA BUFFER), 
1343 B. TWO REGISTERS MAY BE READ - TSSR AND TSBA (TAPE SYSTEM STATUS 
1348 REGISTER AND TAPE SYSTEM BUS ADDRESS Sent 
1346 C. COMMANDS ARE NOT WRITTEN vo,7 ne ORIVE RATHER 
1347 FOINTERS ARE WRITTEN WHICH PO COnAND PACKET ETS, SOME- 
1348 WHERE IN CPU MEMORY. THE COMMAND POINT 
1349 THE TSOS SUBSYSTEM TO FETCH THE WORD(S > ul HIN aA ee COMMAND 
1350 PACKET, THE WORDS WITHIN THE COMMAND PACKET ARE: 
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COMMAND WORD 
LOW ORDER BUFFER ADDRESS 
HIGH ORDER BUFFER ADDRESS 
BYTE COUNT 


D. THE TSSR CONTAINS ALL THE INFORMATION WHICH WILL BE NEC- 
ESSARY TO DETERMINE THER ; 
1. THE DRIVE IS READY TO ACCEPT ANOTHER 
2. THE PREVIOUS COMMAND WAS EXE : 
IF EITHER OF as ABOVE CONDITIONS IS UNTRUE AT “JOB DONE” 
OR " Por I T 


IT MA ESS 
TO GET THE EXTENDED STATUS REGISTERS TO DETERMINE WHAT 
ACTION IS TO BE TAKEN AND/OR LOG THE ERROR INFORMATION. 


E. EXTENDED STATUS WRATIER A ARE NOT READ DIRECTLY FROM 
US” COMMAND 


utr 


I WHI T ER EXTENDED 
STATUS INFORMATION TO THE MEMORY AREA POINTED TO BY THE 
BUFFER ADDRESS OF THE “GET STATUS” COMMAND. THERE ARE FIVE 
EXTENDED STATUS REGISTERS. SEE .3. 


F. THE TSOB MUST BE WRITTEN WITH A DATO wr te et Sy TO 
a al WRITE THE COMMAND POINTER. A D 
CAUSE A MAINTENANCE FUNCTION. A DATO TO THE TSSR WILL CAUSE 
SUBSYSTEM INIT. 


G. COMMAND PACKETS MUST RESIDE ON DIVIDE BY FOUR 
MEMORY BOUNDARIES CAS OPPOSED TO DIVIDE BY 2 OR WORD 
BOUNDARIES) . 


SEQ 0026 


BS 
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6.2 Q@Q-BUS INTERFACE SPECIFICATIONS 


i ee ee ee ee 


TSVOS/ INT. UNIBUS 
TSOS VECTOR ADDRESS 
FIRST 224 772520 

772522 


REGISTER 


TSBA/TSDB 
TSSR 


SEQ 0027 
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SEQ 0028 
1396 6.3 BIT DEFINITIONS FOR TSVOS/TSOS REGISTERS 
1400 6.3.1 TSVOS/TSOS REGISTER SUMMARY 
AME Mee eet ee es, oe eee nak Se eek oe ee Ped 
1405 1S 14 13 12 11 10 09 08 07 06 05 04 03 02 01 
1405 1A1S! tALGtAL3!A12! {A11!A10!A09! 1A08!A07!A06! AOS ! AOS! AOS! #A02!A01 1A00! 
1406 (R/O) TSBA! 
1408 1P15! voiaieisieias ieii ihi01P08: 1808107906: caaeawess | P021P171P 16! 
1409 (w/o) TSOB tt 
1411 ‘sc! ! 0 ocr ant shotGA AAT? raisons or tFCLIFCOITC2! :7C1!TCo! oO: 
141 (R/O) TSSR! 3 
1414 ‘eT! 1O!o!ro: P21 P2019! P18! (TSDBX exists only when 
1415 (w/O)TSDBX ! !! ¢$ ¢ $ fi enabled by the Extended 
1438 ll A elt el De Me eS Se a Features switch on the M7196) 
1418 bintty ednbbdedcdid Bisabccctsinas Jabsguctbondt. Gidtetendess® deonteuiees 
1419 xsto SE | PRLS!LET!RLL! {MLE !NEF SLC! TLA!MOT 10M! ‘IE !VCK!PED! {LK !BOT!EOT! 
1432 ‘DLT! TY TY TSLTITY ‘REP! O10! TYVYTY 6 nce 
1423 xSTl $f 3 Ss 2+: 28 -8:-2 22-8 8:34 
1424 et ee ee ee ee Oe ee eee eee! Oe ee es eee ee ee ee eee ee ee ee 
1425 fOPM: FRCE! 0: Os 1 O WCF! OF 1 O IRLTIRLG! IRLSIALAIAL3! #RLZtRL1 ALO! 
1426 mee 35. 9° 3 38° ¢ 4 
1427 @--- 6 @2- + Oe ee bee ee eee eee eee ee eee eee ee ee -~<--@<--+-+¢-=+-+¢ ee ee 
1428 MICRO DIAGNOSTIC ERROR CODE ' © !OPI! !REV!ITRFIDCK! ! 0 ! O !RIB! 
429 XST3 ! . 4 b.§ ' 
1430 “---¢ e@Qeaw“-@GQeen- Ge = © -“--—@e-- Ge - = © enn Gee - Gee = © ee-@-“-@G@e2r- Ge + = o -~-—-@e-—- Ge - =- © 
1431 'HSP! #RCE! O ! O °o 0 0 oO: RITE RETRY COUNT : 
1432 xsT4$ ft ¢$ § : 
1433 Slt A Delt ett Ret A Det Reet Deed A eed ee ee ee ee ee ee ee oe oe ee | 
1434 
1435 TERMINATION CLASS CODES (TSSR TCO-TC2) 
1437 0 = TERMINATI 
1438 1 = ATTENTION CONDITION 
1439 2s 
1440 3 
1441 4 - - TAPE POSITION = ONE RECORD 
i OF FUNCTION 
144 Ss ABLE ERROR - TAPE NOT MOVED 
1444 6 = UNRECOVERABLE ERROR - TAPE POSITION LOST 
1445 7 = FATAL CONTROLLER ERROR 
laa FATAL CLASS CODES (TSSR FCO-FC1): 


1449 O = MICRO DIAGNOSTIC FAILURE. SEE ERROR CODE BYTE (XST3) FOR FAILED FUNCTION. 
1450 1 = RESERVED 

1451 2 = NOT USED 

1452 3 = RESERVED FOR FUTURE USE ALWAYS READ AS A O 
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SEQ 0029 
i 

1456 6.3.2  TSVOS STATUS REGISTER (TSSR) 

7 SIRS ae in eee ee ANOINARE EE a ee 

1459 

1460 Q@-BUS ADDRESS - 2 - READ ONLY 

1062 iS 14 13 12 11 10 09 06 07 06 OS 04 03 02 01 00 
3068 ssc! 0 tSCE RMR INAH ENBA!AL7# tA16!SSR tOFL FCI tFCOETC2t :TC1!TCot 0 
1466 ae. e*-<--@-<-+- @&- - = © e*e-<--@H- + Ge - = © e*n--“" Gee" Ge - = © ea-<--@e-- @-- = © ea---@e-- Ge - = © 
1467 

1468 

1469 BIT NAME TCC DEFINITION 

rts AG, Se Ora rent 

147 is sc S SPECIAL CONDITION. WHEN SET, INDICATES THAT 

14 THE LAST COMMAND DID NOT COMPLETE WITHOUT 

1474 INCIDENT. SPECIFICALLY, EITHER AN ERROR WAS 

1475 DETECTED OR AN EXCEPTION CONDITION OCCURRED. 

1476 EXCEPTION CONDITIONS CAN BE TAPE MARKS ON READ 

1477 COMMANDS , REVERSE MOTION AND AT BOT, EOT WHILE 

ie73 Bie SourkiNeD In" ree fees aeercveN, ace 

1480 HE TERMINATION ae BITS ARE 

1481 SOPETHING OT OTHER THAN O (UNLESS RMR IS THE ONLY 

1288 Eamon See Are 

2408 . a . RESERVED (ALWAYS A 0) 

1486 13 SCE FCO Sanity Check Error-Sets when the controller detects 
1487 en abnormal condition within itself during execution 
1488 of it’s functions end the problem is serious enough 
soe thet e ‘Woecnee Packet is not stored. 

1491 12 RMR Ss REGISTER MODIFICATION REFUSED. SET BY THE TSVOS 
1492 whit Ne POINTER IS LOADED INTO TSDB AND 
1493 SUB SYSTER READY (SSR) IS NOT SET. NOTE THAT 

1494 THIS BIT cA Ss SPECIAL CONDITION BUT NO TERMINATION 
1495 CLASS (IN FACT, SOS NEVER SEES THIS ERROR) 
1496 BEC ON A SYSTEM WITH NO BUGS, THIS BIT MAY 

1497 COME UP ON AN ATTENTION F ATTNS ARE 

1498 NOT ENABLED, THIS BIT COMING UP IS AN INDICATION 
1499 OF EITHER A FATAL CONTROLLER ERROR OR A SOFT 

1501 

1502 11 NXM 4/5 NON-EXISTENT MEMORY. SET BY THE TSVOS WHEN 
1503 TRYING TO TRANSFER TO OR FROM A MEMORY LOCATION 

1504 WHICH DOES NOT EXIST. Y OCCUR WHEN FET CHING 

1505 THE COMMAND PACKET, FETCHING OR STORING DATA 

1306 OR STORING THE MESSAGE PACKET. 

1508 10 NBA 5 ’ NEED BUFF ER ADORE SS . WHEN SET, INDICATES THAT 

1509 THE TSOS NEEDS A MESSAGE BUFFER ADORE THIS 

1510 BIT IS CLEARED DURING THE SET CHARACTERISTICS 


07 


9.5 


01 


Al7 


Al6 
SSR 


OFL 


FCi 


FCO 
Tce 


$.1.5 
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COMMAND CIF A GOOD ADDRESS WAS GIVEN). 


BUS ADDRESS BIT 17. Al7 AND Al6 (BIT 08) TRACK 
THE VALUES OF BITS 17 AND 16 OF THE TSBA 
a anh FROM TSOB BITS 01-00 WHEN TSDB 


BUS ADDRESS BIT 16. SEE Al7 (BIT 09). 
SUB-SYSTEM READY. WHEN SET, INDICATES THAT THE 
beret Eee SUBSYSTEM IS NOT BUSY AND IS READY TO 
ACCEPT A NEW COMMAND POINTER. 


OFF-LINE. WHEN SET, INDICATES THAT THE TsosS IS 
OFF-LINE AND UNAVAILABLE FOR ANY TAPE MOTION 
OMMANDS. THIS BIT CAN C A TERMINATION CLASS 
OF 1 (ON ATTN INTERRUPT) OR 3 (RESULTS IN NEF). 


FATAL TERMINATION CLASS 01. FC1 AND FCO ith. 
04) ARE USED TO INDICATE THE haa OF FATAL 
OCCURRED ON THE TSOS. 


ERROR WHI 
BITS ARE VALID ONLY WHEN SC IS SET AND THE 
TERMINATION CLASS CODE BITS ARE ALL SET (111). 


FATAL TERMINATION CLASS 00. SEE FC1 (BIT OS). 


TERMINATION CLASS BIT 02. acl"ts BIT ALONG WITH 
THE 1C1 AND TCO setts AN OFFSET VALUE 
WHENEVER AN ERROR OR EXCEPTION. CONDITION OCCURS 


ON OMMAND. EACH POSS 
GALUES OF THIS FIELD REPRESENT A PARTICULAR 
CLASS ERRORS OR EXCEPTIONS. THE CONDITIONS 
IN EACH CLASS HAVE SIMILAR SIGNIFICANCE AND, AS 
APPL RECOVERY PROCEDURES. THE CODE 
PROVI In THIS FIELD IS EXPECTED TO BE 
UTILIZED AS AN OFFSET INTO A DISPATCH TABLE FOR 
HANDLING OF THE CONDITION. 

TERMINATION CLASS BIT 01. SEE TC2 (BIT 03). 
TERMINATION CLASS BIT 00. SEE TC2 (BIT 03). 


NOT USED. (ALWAYS A 0) 


Q@-BUS ADDRESS +- 2 - WRITE ONLY 
SUBSYSTEM INITIALIZE 


SEQ 0030 
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SEQ 0031 

1 

1363 6.3.2.1 TSVOS EXTENDED DATA BUFFER REGISTER (TSDBX) 

oT es ee ar) Be eee OR aie ermine hence nin api erie tame: 

1566 

1567 Se ee ee ee ee ee ee ees ee e---+¢ 

1568 ‘ertrtrorortos P21 1P201P19! ‘P18! (TSOBX exists only when 
1569 tsppx : #f ¢@ ¢ enab!ed by the Extended 
i370 Geer Cree Seer GeeresG SeeeGeereGeeresS Geers Features Switch on the M7196 ) 
1572 

1373 BIT NAME TCC DEFINITION 

1575 iS~—s«aaT . BOOT COMMAND BIT. WHEN WRITTEN TO A 1,WITH 

1576 SSR=1, CAUSES THE TAPE TO BE REWOUND TO BOT 

1577 THE beast TAPE RECORD TO BE SKIPPED, AND THE 

1578 SECOND RECORD TO BE LOADED INTO CPU MEMORY SPACE 

1379 STARTING AT LOCATION O. 

1382 14-12 RESERVED (ALWAYS A 0) 

1583 11-08 P<21:18> COMMAND POINTER BITS 21-18. WHEN THE TSDBX IS WRITTEN 
1584 AND SSR=1, THE DATA IS LOADED INTO BITS 21-18 OF 

1385 THE INTERNAL TSBA REGISTER. 

1587 07-00 RESERVED (ALWAYS A 0) 

1588 

1589 

1590 

139 6.3.3 EXTENDED STATUS REGISTER O (XSTATO) 

eee eee ee ee pee een ig ete et ke Oe eC ee gt ee 

1594 

1395 iS 1413 32 11 10 09 08 07 06 OS 04 03 02 01 00 
1397 :TMK! PRLSILETIRLL! {MLE INEF F.C! HILA!MOT 10M! ‘TE tVCK PED! {MLK BOT !€0T! 
1599 a *“---@e--@G@- =- =- ¢ e*n---@e- ee # Gee + © e*e-n-- Gen" Gee = © e@Qeen-“-@ee- Ge = = © en---@G@en-- @- = = © 
1600 

1601 

1602 BIT NAME TCC DEFINITION 

1603 abc en ie Enemas 

1605 1s ~T™™«K S.2 TAPE MARK DETECTED. SET WHENEVER A TAPE MARK 

1606 WAS DETECTED DURING A READ, SPACE SKIP 

1607 COMMAND AND AS A RESULT OF THE WRITE Shee 

1609 OR WITE TAPE MARK RETRY COMMANDS. 

1610 14 AS 2 RECORD LENGTH SHORT. THIS BIT INDICATES THAT 

1611 EITHER THE RECORD'S LENGTH WAS SHORTER THAN THE 

16 BYTE COUNT ON READ OPERATIONS, A SPACE 

1613 OPERATION ENCOUNTERED A TAPE MARK OR BOT 

1614 THE POSITION COUNT WAS 

1615 TAPE MARKS COMMAND 

1616 ENCOUNTERING BOT OR A DOUBLE TE MARK (IF THAT 

1617 OPERATIONAL MODE IS ENABL SEE LET) PRIOR TO 

1618 EXHAUSTING THE POSITION COUNTER 


TSVOS DATA RELIABILITY 
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13 


l2 


11 


10 


LET 


NEF 


LOGICAL END OF ye eth ‘a. ON THE SKIP TAPE 
MARKS ake rte HER TWO CONT ae TAPE 


AND te Fine > ED OR WHEN Note ‘“_ hee 


THE SETTING OF -~ BIT WILL NOT “OCCUR 
UNLESS THIS MODE OF TERMINATION IS ENABLED 
THROUGH USE OF THE SET CHARACTERISTICS COMMAND. 


RECORD LENGTH LONG. WHEN THIS BIT 
INDICATES THAT SHE RECORD READ 5 UAS LONGER THAN 
THE BYTE COUNT SPECIFIED. 


WRITE LOCK ERROR. WHEN SET, INDICATES THAT A 
ON WAS ISSUED BUT THE MOUNTED TAPE 

DID NOT CONTAIN A WRITE ENABLE RING OR THE WRT 

LOCK SWITCH ACTIVATED DURING THE OPERATION. 


NON- EXECUTABLE FUNCTION. WHEN INDICATES 
THE COMMAND COULD NOT BE BE ExecuTeD ED DUE TO 
ONE OF THE FOLLOWING CONDITIONS: 


- THE COMMAND tt le REVERSE TAPE 
DIRECTION BUT THE TAPE WAS ALREADY 
POSITIONED AT BOT. 

- THE ISSUING OF ANY MOTION COMMAND EXCEPT 


SEQ 0052 


H3 


03 


02 


01 
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ILC 


Ie€ 


VCK 


EOT 


:12 Page 11 


s.3 


; S.2 


ILLEGAL C 


AND 


WHEN THE VOLUME CHECK BIT +h, SET 
ANY C x 


ANY WR OMMAND WHEN THE T DOES NOT 
CONTAIN A WRITE ENABLE RING CWRITE LOCK 

STATUS - WLS). 
OMMAND. SET WHEN A COMMAND IS ISSUED 
EITHER ITS COMMAND FIELD OR ITS COMMAND 
br ¥ CODES WHICH ARE NOT 


MODE FIELD 
SUPPORTED BY THE T 


ILLEGAL ADDRESS. 
AN EVEN ADDRESS IS REQUIRED. ) 


TAPE 
ON L 


INT 


IS MOVING. 
WHEN EF erates THAT THE TSOS IS 


NE. 
ON-LINE AND OPER 


ENABLE. REFLECTS THE STATE OF THE 


ERRUPT 
INTERRUPT ENABLE BIT SUPPLIED ON THE LAST 
COMMAND . 


VOLUME CHECK. WHEN SET, INDICATES THAT THE 
DRIVE HAS BEEN EITHER POWERED DOWN OR TURNED 


PHASE ENCODED DRIVE. ALWAYS SET, at tg cl THAT 


OMMAND HEADER 
A TERMINATION CLASS OF 3. 


THE TSOS IS CAPABLE OF ~ eB AND WRITING ONLY 
BPI PHASE ENCODED DATA 


1600 


WRITE LOCKED. WHEN SET, INDICATES THAT THE 
MOUNTED REEL OF _  T S NOT HAVE A 
WRITE-ENABLE RING INSTALLED. THE TAPE IS, 
THEREFORE, WRITE PROTECTED. 


ae ay OF TAPE. WHEN SET, INDICATES THAT 
TAPE T AS 


IS POSITIONED 


THE AT THE LOAD POINT 
7 be BY THE BOT REFLECTIVE STRIP ON THE 


END OF TAPE. wes BIT IS SET WHENEVER THE TAPE 
IS POSITIONED OR BEYOND THE END OF TAPE 
REFLECTIVE STRIP. 


(MORE THAN 18 BITS OR ODD WHEN 


SEQ 0035 


13 
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6.35.4 EXTENDED STATUS REGISTER 1 (XSTAT1) 


1S OLT 
4 (C 

13 COR 
12-09 

08 RPB 
07-02 & 00 
01 UNC 


1 


e“---@&-- = & e---@e-—-+- @&@- == & “---@&--=- @&-- = & “---@&t--- 


4 13 1 11 10 09 08 07 06 05 04 03 
' 
t 


DATA LATE. SET WHEN THE FIFO tS FULL ON A 
READ OR EMPTY ON A WRITE. THESE CONDITIONS 
OCCUR WHENEVER THE @-BUS LATENCY EXCEEDS THE 
DATA TRANSFER RATE OF THE TSOS. 

NOT USED. CALWAYS A 0) 


CORRECTABLE DATA. 
CORRECTABLE DATA ERROR HAS BEEN ENCOUNTERED. 


RESERVED CALWAYS A 0) 


READ BUS PARITY ERROR. SET-WHEN CONTROLLER DETECTS 


SEQ 0034 


A PARITY ERROR ON THE READ DATA LINES OF THE TRANSPORT BUS 


RESERVED (ALWAYS A 0) 


UNCORRECTABLE DATA ERROR. 


J3 
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SEQ 0035 
1733 6.3.5 EXTENDED STATUS REGISTER 2 (XSTAT2) 
og re ay ie eee Oe sm ne ia stirred he Nace a et a eae TO Ge 
1736 
+730 15 14 13 12 11 10 O9 08 O7 0 05 04 03 02 o1 00 
1739 0PM *RCE! O10} 'O 'wcF! Oo: £0 HRL7IRL6! RL SIAL 41. 3! RL24RL11ALO! 
7 a 6 a 

174] ---¢ 4 ae ee. aint inicniaiegintiin a Se ee ee ee ee ee ee ee 
1742 
1743 
1744 BIT NAME TCC DEFINITION 
irae iy pane cama 
aeee 15 OPM Ss OPERATION IN PROGRESS. (TAPE MOVING) 
1749 14 =RCcE 7,F2 RAM CHECKSUM ERROR. CAUSES FATAL CLASS 2 BECAUSE THE 
1750 ERROR MIGHT HAVE OCCURRED DURING THE TRANSMISSION OF THE 
1733 MESSAGE PACKET. 
1753 13-11 RESERVED (ALWAYS A 0) 
1735 
1756 10 wCF 7 WRITE CLOCK FAILURE. SET DURING A WRITE TO INDICATE THAT 
1737 THE FIFO IS NOT BEING EMPTIED BY THE TRANSPORT 

09-08 RESERVED (ALWAYS A 0) 


eee 
RARRT 


07-00 RL 
7-0 


REVISION LEVEL. 


K3 
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SEQ 0036 
6.3.6 EXTENDED STATUS REGISTER 3 (XSTAT3) 
1S 1413 12 11 10 09 08 07 06 05 04 03 02 O1 00 
MICRO DIAGNOSTIC ERROR CODE : 0 OPI: sREV! TRF 100K: : 0! 0 :RIB! 
BIT NAME TCC DEFINITION 
1S TO 08 MICRO DIAGNOSTIC ERROR CODE. (SEE LIST OF CODES BELOW). 
07 RESERVED (ALWAYS A 0) 
0 OPI 6 OPERATION INCOMPLETE. SET WHEN A 
OR SKIP OPERATION HAS MOVED 25 "tert oF rast 
WITHOUT DETECTING ANY DATA ON THE TAPE. 
0S REV § DIRECTION OF CURRENT OPERATION WAS REVERSE (BUT 
IS 0 IF REWIND OR FORWARD) 
04 ‘ . RESERVED (ALWAYS A 0) 
03 OCK  S.6 DENSITY CHECK. SET WHEN PE 
IDENTIFICATION BURST (IDB) “uas NOT DETECTED WHEN 
MOVING OFF OF BOT. 
02-01 RESERVED (ALWAYS A 0) 
00 RIB 2 REVERSE INTO BOT. A READ, SPACE, OR SKIP 
COMMAND ALREADY IN PROGRESS HAS ENCOUNTERED THE 
BOT MARKER WHEN MOVING TAPE IN THE REVERSE 
DIRECTION. TAPE MOTION WILL BE HALTED AT BOT. 
6.3.7 EXTENDED STATUS REGISTER 4 (XSTAT4) 
1S 14 13 12 1110 09 08 07 06 05 Oo O8 02 01 00 
tHSP! !RCE! 0 0 pa pe Oo: ” URITE RETRY COUNT 
BIT NAME TCC DEFINITION 


i? 
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SEQ 0037 
1822 1S HSP S High Speed. When set, indicates thet the A sy is 
1823 operat i in high speed mode.(100ips) When clear, the 
oass transport is operating in low speed mode.(25ips) 
1826 14 + RCE 6 Retry Count Exceeded. When set, indicates that the controller 
1827 was buff fering Write Dete end could not eucesstul ly ; 
1828 the buffered record within the specified number of retries. 
sake Ceuses Tape Position Lost termination. 
rte 13-8 - RESERVED CALWAYS A 0) 
1833 7-0 WRC S Write Recount Count Statistic. This field indicates, when 
1834 the controller is buffering write date records, the totel 
1835 number of controller initiated retries gor coracd in order 
1836 to write the previous buffered record. This count is clesred 
1837 efter it is displayed. 
1838 
1839 
1840 
1841 7.0 DIAGNOSTIC HISTORY 
SS ee ee ee eee ee eee 
1843 
1844 REVISION A - MAR 1982 
seer - MODIFIED CZTSHC FROM TS11 FOR TSVOS 
thee REVISION B - APR 1983 
1849 - UPDATED THE DIAGNOSTIC TO SUPPLY THE CORRECT 
1850 RECORD NUMBER DURING EXECUTION OF TEST @2. 
1851 REF: CHMIELECKI TO MITCHELL “TSVOS DATA 
sees RELIABILITY PROBLEM”; 21-JAN-83. 
sees REVISION C - JUN 1984 
1839 MINOR CHANGES FOR “ORION” CPU 
‘eee REVISION D - APRIL 1987 
860 S MADE TO ALLOW DIAGNOSTICS TO WORK WITH 


1 CHANGE 
1661 THE NEW TSVOS MICROCODE (REVISION 2). THE NEW 
TSVOS MICROCODE ALWAYS IN EXTENDED FEATURE MODE. 


1862 

1863 

1864 

1865 

1877 . TITLE PROGRAM HEADER AND TABLES 

1878 -SBTTL PROGRAM HEADER 

1909 000000 .ENABL ABS,AMA 

1910 002000 . : 2000 

1912 002000 BGNMOD 

1913 

1914 ts 

1915 THE PROGRAM HEADER IS THE INTERFACE BETWEEN 

1339 ; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
gee 


8 
1919 002000 POINTER BGNRPT ,BGNSW,BGNSFT ,BGNAU, BGNDU 


AND TABLES 


002164 
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HEADER CVTSE,D, 
L $NAME: : 


L$REV:: 

L$DEPO: : 
L$UNIT:: 
L$TIML:: 
L$HPCP: : 
L$SPCP:: 
L$HPTP: ; 
L$SPTP:: 
L$LADP: ; 
L$STA:: 
L$CO:: 

LSDTYP:: 
LSAPT:: 

L$DTP: ;: 

L$PRIO:: 
LSENVI: : 
LSEXP1:: 


0,5000,1 
;DIAGNOSTIC NAME 


sREVISION LEVEL 

30 

;NUMBER OF UNITS 

sLONGEST TEST TIME 
sPOINTER TO H.W. QUES. 
sPOINTER TO S.W. QUES. 
;PTR. TO DEF. H.W. PTABLE 
;PTR. TO S.W. PTABLE 
;DIAG. END ADDRESS 
sRESERVED FOR APT STATS 


sDIAGNOSTIC TYPE 

;APT EXPANSION 

;PTR. TO DISPATCH TABLE 
sDIAGNOSTIC RUN PRIORITY 

sFLAGS DESCRIBE HOW IT WAS SETUP 
sEXPANSION WORD 

;SVC REV AND EDIT @ 


sDIAG. EVENT FLAGS 


s POINTER TO DEVICE TYPE LIST 
sPTR. TO REPORT CODE 


SEQ 0038 


ASCII /C/ 
ASCII /V/ 

CII /T/ 
ASCII /S/ 
ASCII /E/ 
BYTE O 
BYTE O 
BYTE 0O 
ASCII /0/ 
-ASCII /0/ 
-WORD O 
-WORD 5000 
-WORD LS$HARD 
-WORD L$SOFT 
-WORD L$HW 
-WORD L$SW 
-WORD L$LAST 
-WORD O 
-WORD 0 
-WORD 1 
-WORD O 
-WORD L&DISPATCH 
-WORD 0 
-WORD O 
-WORD O 
-BYTE C$REVISION 
-BYTE CSEDIT 
-WORD 0O 
-WORD O 
-WORD O 
-WORD LSDVTYP 


1930 





AND TABLES 


017630 
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LSEXP4:; 
L$EXPS: : 
L$AUT:: 
L$DUT:: 
L$LUN:; 
L$DESP: : 
L$LOAD: : 
LSETP:; 
L$ICP:: 
L$CCP:: 
LSACP:: 
L$PRT:: 
L$TEST:: 
L$DLY:: 
L$HIME: : 


. WORD 

. WORD 

. WORD 
;PTR. TO ADD UNIT CODE 

_ , WORD 

;PTR. TO DROP UNIT CODE 
;LUN FOR EXERCISERS TO FILL : 
;sPOINTER TO DIAG. DESCRIPTION . 
;GENERATE SPECIAL AUTOLOAD EMT - , 
;POINTER TO ERRTBL 

. WORD 
;PTR. TO INIT CODE - 

. WORD 
;PTR. TO CLEAN-UP CODE 

. WORD 
;PTR. TO AUTO CODE 

. WORD 
;PTR. TO PROTECT TABLE 

. WORD 
; TEST NUMBER 

. WORD 
;DELAY COUNT 

WORD 
;PTR. TO HIGH MEM 

. WORD 


SE@ 0039 


B4 


PROGRAM HEADER AND TABLES 
DISPATCH TABLE 
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SEQ 0040 


1937 .-SBTTL DISPATCH TABLE 
1939 
3°? 
1940 ; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
seas ; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
alias 
1943 
1944 12 DISPATCH 5 
002122 000005 . WORD 5 
002124 L$DISPATCH:: 
002124 024216 . WORD T1 
002126 025704 . WORD T2 
1 026540 . WORD T3 
002132 026734 . WORD T4 
002134 027114 . WORD TS 
1945 
1952 
1953 -SBTTL DESCRIPTIVE TEXT 
1985 
3° 
' 1956 32 LINES OF TEXT PRINTED TO THE OPERATOR TO IDENTIFY THE DIAGNOSTIC AND THE DEVICE UNDER TES 
1957 g-- 
1958 
1959 0021 DESCRIPT <DATA RELIABILITY TEST> 
002136 L$DESC:: 
ets 002136 104 101 124 -ASCIZ /DATA RELIABILITY TE 
002141 101 040 122 
002144 105 114 111 
002147 101 102 lil . 
0021 114 111i 124 
002155 131 040 124 
002160 105 123 124 
002163 000 
1960 002164 DEVTYP <TSVO5> 
002164 LSDOVTYP:: 
002164 124 123 126 -ASCIZ /TSVOS/ 
002167 060 065 Or even 


PROGRAM HEADER AND TABLES 
DEFAULT HARDWARE P-TABLE 


16 240 
2017 002242 


S8BSSssssEss 


He 


iu 
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-SBTTL DEFAULT HARDWARE P-TABLE 


: 
; THE DEFAULT HARDWARE P-TABLE C 


ONTAINS DEFAULT V S OF 
; THE TEST-DEVICE PARAMETERS. THE Mag My | OF THIS TABLE 
; IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P- E. 
,e2 
BGNHW DFPTBL 
HW: : 
DFPTBL:: 
WORD 172520 ; 7S08 . 
eo4 ;VECTOR ADDRESS. 
;DRIVE #0 FOR DEFAULT 
ENDOHW 
L10000: 


-SBTTL SOFTWARE P-TABLE 


; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 
i-- 


BGNSW SFPTBL 


SEQ 90041 


-WORD L10000-L$HW/2 


-WORD L10001-L$SW/2 


ON SAME SPOT & DETECT BAD TAPE 


L$SW:: 
SFPTBL:: 
CLRFLG:: .BYTE 1 ;CLEAR COUNTERS FLAG. 
RRANV:: .BYTE OQ sRESET RANDOM VARIABLES ~ PASS FLAG. 
2: BYTE O ;sHALT AFTER EACH COMMAND FLAG. 
ERCVER:: .BYTE O sENABLE RECOVERABLE ERROR PRINTS FLAG. 
BADTSW:: .BYTE 1 ;BAD TAPE SWITCH TO REWRITE 
YTE 0 3; SPARE 
DINT:: BYTE 0 ;sDISABLE INTERRUPTS FLAG. 
IREC:: BYTE O s INHIBIT ERROR RECOVERY FLAG. 
CHGFLG: arree g ; CMD SEQ TABLE FLAG. 
= : o 
PIRE:: .BYTE O s INHIBIT RESIDUAL FRAMECOUNT ERROR REPORT FLAG. 
BYTE O ; SPARE. 
CHAR:: CH.EAI sCHARACTERISTICS CODE (DEFAULT = 40). 
CMDD:: .WORD 13. ; 2 (DEFAULT = REWIND). 
. WORD 1 ;sBYTE COUNT 
.WORDB 1 ; OF OPERATIONS 
.WORD RANP ;PATTERN 
.WORD 4 sCOMMAND 3 (DEFAULT = WRITE) 
-WORD DATCNT sBYTE COUNT (DEFAULT = MAX BUFFER SIZE). 
-WORDB 32000 OF OPERATIONS (DEFAULT = 32000). 
.WORD RANP ;sPATTERN (DEFAULT = R 
.WORDB 5 :C 4 (DEFAULT = READ REV) 


PROGRAM HEADER AND TABLES 
SOFTWARE P-TABLE 
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s;BYTE COUNT (DEFAULT = MAX BUFFER 
;NUMBER OF OPERATIONS (DEFAULT = 
;PATTERN DEFAULT = RANDOM). 

COMMAND S (DEFAULT = READ FWD). 


;BYTE COUNT (DEFAULT = MAX BUFFER SIZE). 
;sNUMBER OF OPER “ 
PATTERN (DEF AULT 
;COMMAND 6 6 (DEFAULT = S RELI). 
‘BYTE COUNT 

OF OPERATIONS 
;PATTERN 

OF SEQ TABLE CODE (DEF) OR CMD 7 

;BYTE COUNT (DEFAULT = MAX BUFFER SIZE). 
;sNUMBER OF OPERATIONS (DEFAULT = 32000). 
‘PATTERN (DEFAULT = RANDOM). 
;END OF CMD SEQ TABLE CODE (DEF) OR CMD 8 
‘BYTE COUNT (DEFAULT = MAX BUFFER SIZE). 

OF AULT = 32000). 


OPERATIONS (DEF 
ANDOM ). 


; ENABLE BUFF 
;sENABLE WRITE BUFFERING 
;RUN AT 100; SWI 


TCH 
s EXTENDED FEATURES SOFTWARE SW O=OFF ;1=0ON 
sMICROCODE REVISION LEVEL 
;BUFFER ENABLE SOFTWARE SW O=OFF;1=ON 


SEG 0042 


E4 


PROGRAM HEADER AND TABLES 
SOFTWARE P-TABLE 
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-TITLE GLOBAL AREAS 
.SBTTL GLOBAL EQUATES SECTION 


BGNMOD 
; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
; ARE USED IN MORE THAN ONE TEST. 
aoe 

EQUALS 
; BIT DIFINITIONS 
61T15== 100000 


EVENT FLAG DEFINITIONS 


; 

;  EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 

br STaRT== 32. ; START COMMAND WAS ISSUED 
EF RESTART== 31. ; RESTART COMMAND WAS ISSUED 
EF CONTINUE== 30: ; CONTINUE COMMAND WAS I 

EF ‘NEW== 39: ; A NEW PASS HAS BEEN STARTED 
EF _PUR== 58: ; A POWER-FAIL/POWER-UP OCC 
3 

; PRIORITY LEVEL DEFINITIONS 

PRIO7== 340 

PRI06== 300 


SEQ 0045 


F4 


GLOBAL AREAS 
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2089 
2091 


333 


PEPRTE 
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000240 
000200 
000140 
000100 
000040 
000000 


; OPERATOR FLAG BITS 


EVL== 


LOT== 
ADR== 


4 
10 
20 


40 
100 


1000 


REGISTER USAGE. 
PASSES PARAMETERS TO/FROM DIAGNOSTIC SUPERVISOR. 
COMMAND SEQUENCE T 


ABLE POINTER. 


CURRENT LOGICAL DEVICE NUMBER X 2. 
STACK POINTER. 
PROGRAM COUNTER, 


SEQ 0044 


G4 


GLOBAL AREAS 
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GLOBAL EQUATES SECTION 


002000 
001000 
000400 


000100 
177717 
177761 


;THE FOLLOWING ARE BIT DEFINITIONS FOR THE TSSR REGISTERS. 
s SPECIAL ones son BIT. 
PARITY caw 


PARITY ERROR. 
sREGISTER Sa henanY REFUSED. 
MEMORY 


TS.OFL*=100 
TSC.FCC=#177717 
TSC. TCC#"177761 


CVC .C==40000 


; UNIBUS 
sSERTAL BUS 


sNON-EXISTENT 


LINE. 
PATAL CLASS CODE MASK. 
; TERMINATION CLASS CODE MASK. 


;THE FOLLOWING ARE BIT DEFINITIONS FOR THE COMMAND WORD 


sACKNOWLEDGE BIT 
;CLEAR VOLUME CHECK. 


sOPPOSITE BIT 
1 SWAP ae 


BIT 1 
FG VERIFY FLAG BIT. 
BY TSsos. 


T USED 
;FORMAT BIT O. 


sJUMP BIT- 


: COMMAND BIT 


sBIT DEFINITIONS FOR DEVICE CHARACTERISTICS. 
sENABLE SKIP TAPE MARKS STOP (STOP AT LOGICAL EOT). 


CH.ESS==200 
CH.EAI==40 
CH.ERT==20 
OF TSCH==CH. EAI 


sENABLE ATTENTION INTERRUPTS. 
;ENABLE MESSAGE BUFFER RELEASE INTERRUPTS. 
;DEF AULT CHARACTERISTICS CODE. 


BYTE /RECORD/F ILE COUNT FLAG BIT. NOT USED 
TSOS BUT USED INTERNALLY BY THIS PROGRAM ONLY. 


TO DIRECT nee PROGRAM TO JUMP TO 
A CERTAIN LOCATION IN THE COMMAND SEQUENCE 
; TABLE. oe USE 


s INSERT DELAY INTERNAL USE ONLY. 


INTERNAL USE ONLY. 


SEQ 0045 


H4 
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SEQ 0046 


2150 

2131 ;BIT DEFINITIONS FOR EXTENDED CONTROL WORD 

2153 EF .HSS==40 ;ENABLE HIGH SPEED SELECT 

2154 000030 EF .RWB==30 ;ENABLE BOTH READ & WRITE BUFFERING 
2155 000020 EF .RBO==20 ;ENABLE READ BUFFERING ONLY 

2157 ;THE FOLLOWING INDICATES THE RELATIVE POSITIONS OF THE STATUS WORDS 
2138 ;IN THE MESSAGE BUFFER. 

2160 000004 MS .RFC==4 ;RESIDUAL FRAME COUNT. 

2161 000006 XSO==6 ;EXT STATUS REG O 

2162 000010 MS .XS1==10 sEXT STATUS REG 1 

2163 000012 XS$2==12 ;EXT STATUS REG 2 

2164 000014 MS .XS3==14 ;EXT STATUS REG 3 

2165 000016 MS .XS4==16 ;EXT STATUS REG 4 

2167 ;THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER O. 
2169 100000 XO. TMK==100000 ;TAPE MARK. 

2170 040000 XO. RLS==40000 ;RECORD LENGTH SHORT. 

2171 020000 XO. LET==20000 ;LOGICAL EOT. 

2172 010000 XO. RLL==10000 ;RECORD LENGTH LONG 

21 000100 XO. ONL ==100 ;0N LI 

2174 000004 XO. WLK==4 ;WRITE LOCK BIT 

21 000002 XO. BOT==2 ;BOT ; 

2176 000001 X0.E0T==] ;EOT BIT. 

2178 ;THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2. 
21 100000 X2. OPM= = 100000 ;OPERATION IN PROGRESS, TAPE MOVING 
2181 000200 X2_EFE==200 ;EXTENDED FEATURES ENABLED 

2182 000100 X2. BFE==100 ;BUFFERING ENABLED 

2184 ;THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3. 
3186 10 X3.DCK==10 ;DENSITY CHECK. 

216” 157400 X3 . RNY==157400 ;CAPSTAN RUNAWAY UDIAG ERROR CODE. 
2189 ;THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4. 
2191 100000 X4 .HSS==100000 ;HIGH SPEED SWITCH INDICATING 100ips 
2192 040000 X4_RCE== 40000 ‘RETRY COUNT EXCEEDED 

2194 

2195 ;THE FOLLOWING DEFINITIONS SHOW THE RELATIVE POSITIONS OF THE COMMAND 
$i39 ;PACKET ENTRIES. 

2198 000000 CP .CMD==0 ;CMDPKT-0==TSOS COMMAND 

2199 000002 CP. ADL==2 sCHDPKT -2==BUFFER ADORE } 

2200 000004 CP. ADH==4 ;CMDPKT-4==BUFFER ADORESS HIGH. 

2201 000006 CP | CNT=<6 ;CKDPKT +6==BYTE/FILE/RECORD COUNT 


14 
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GLOBAL EQUATES SECTION 


2203 
2204 





sMISCELLANEOUS DEFINITIONS. 


SEQ 0047 


TO INSURE 


INTPRI ==PRIO7 sPRIORITY TO BE USED IN INTERRUPT STATE. 
SCHCNT==12 ;ARBITRARY BYTE LENGTH a CHARACTERISTIC 
;BUFFER LENGTH. CEVEN @) 
MSGCNT ==20 ;sMESSAGE BUFFER LENGTH IN BYTES. CEVEN @) 
DIACNT==20 ;DIAGNOSTIC COMMAND BUFFER EXTENT. 
DATCNT==2048. ;MAXIMUM RECORD LENGTH IN BYTES 
;THIS COUNT SHOULD Bt A MULTIPLE OF 256 
sPROPER READ/WRITE BUFFER ALLOCATION BY THE SUPER. 
RNOPSC==177740 ;RANDOM @ OF OPERATIONS MASK. 
RANP==7 ;CODE TO SELECT RANDOM PATTERN. 
RRECL ==16. ;READ RECOVERY ATTEMPT LIMIT. 
WRECL ==16. ;sWRITE RECOVERY ATTEMPT LIMIT. 
RANBC==153624 ;CONSTANT USED TO RESET RANDOM @ GENER 
RANSC==32561 ;CONSTANT USED TO RESET RANDOM @ SA 
NINUSE ==177774 ;NOT IN USE CODE FOR DEVICE STATE T 


ABLE. 
NCMD.C==ACK.C!CVC.C!0PP.C!SuB. C#M00. C3:moD. AS tig B ea. .COLTE.C!FMT.C1!FMT.CO 


;NOT “COMMAND” 


;THE FOLLOWING DEFINES THE COMMAND WORD FOR EACH TSOS COMMAND. 


DRI== ACK.C!CMD.C3!CMD.C1!CMD.CO 


;DRIVE INIT. 
RDF == ACK .C!BRF .C!CMD.CO 
;sREAD FORWARD 
RDR== ACK .C:BRF .C!MO0D.CO!CMD.CO 
;sREAD REVERSE 
WRT == ACK .C!BRF .C!CMD.CO!CMD.C2 
;sWRITE COMMAND 
WTV== ACK .C!ORF .C!:VFY.C!CMD.CO!CMD.C2 
sWRITE VERIFY 
SRF == ACK .C!BRF .C!:CMD.C3 
;SPACE RECORD FORWARD 
SRR== ACK .C!BRF .C!M0D.CO!CMD.C3 
;SPACE RECORD REVERSE 
RNR== ACK .C!BRF .C!MOD.C1!:MOD.CO!CMD.CO 
;READ REV RETRY] - REREAD NEXT REVERSE, IE. SPACE FWD, READ REVERSE 
RNF == ACK .C!BRF .C!0PP .C!MOD.C1!MOD.CO!CMD.CO 
;sREAD REV RETRY2 - REREAD NEXT FORWARD, IE.READ FORWARD, SPACE REVERSE 
RPF «= ACK .C!8RF .C!M0D.C1!CMD.CO 
;sREAD FWD RETRY] - REREAD PREVIOUS FORWARD, IE. SPACE REVERSE, READ FORWARD 
RPR== ACK .C!8RF .C!0PP.C!MOD.C1!CMD.CO 
;READ FWD RETRY2 - REREAD PREVIOUS REVERSE, IE. READ REVERSE. SPACE FORWARD 
WRR:=«= ACK .C!M0D.C1!B8RF .C!CMD.C2!CMD.CO 


J4 
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102010 


100012 


100011 


101011 


105010 


105410 


100017 


100411 


100412 


101012 


177777 


g 


PSERRE ERE EES EB 


.C!m00 


.C:CmD 


.C:CmD 


.C!M00 


.C!BRF 


.C!BRF 


-C:CMD 


.C!M0D 


.C!MOD 


.C!M00 


.C:Cvc 
-C:Cvc 
.C:CmD 


oOo mo 


~ 
“ 
) 
“ 
“N 
N 


;WRITE RETRY 
-Ce:Cmd.CS 

sREWIND COMMAND 
.C3!:CMD.C1 

;MESSAGE BUFFER RELEASE 
.C3!CMD.CO 


;WRITE TAPE MARK. 


-C1!CMD.C3!CMD.CO 
;WRITE TAPE MARK RETRY. 


-C!M00.C1!CMD.CS 
;SPACE FILE FORWARD 


.C!MO0D.CO!MOD.C1!:CMD.C3 
;SPACE FILE REVERSE 


-CO!CMD.C1!CMD.C2!:CmMD.C3 
;GET EXTENDED STATUS 


-CO!CMD.C3!:CMD.CO 
sERASE 3 INCHES OF TAPE 


-CO!CMD.C3!CMD.C1 

;UNLOAD COMMAND 
-C1!CMD.C3!CMD.C1 

;ERASE TAPE. 
-C!CmMD.C2 ;SET DEVICE CHARACTERISTICS. 
-C!CMD.C2!CmMD.Ci ;WRITE SUB-SYS MEM 
-C2!CmD.C1i ;DIAGNOSTICS. 

;JUMP TO “N”TH COMMAND 

;DELAY “N” MS. 


sEND OF COMMAND SEQUENCES 


SEQ 0048 


K4 
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002330 


SEQ 0049 


- SBTTL GLOBAL DATA SECTION 


< THE GLOBAL DATA oe CONTAINS DATA THAT ARE USED 
; IN MORE THAN ONE TEST 

gee 

; COMMAND PACKET. 

, <,+3>€177774 


sMUST BE ON 4 BOUNDRY. 
CMDPKT: : "0 :1ST WORD IS T COMMAND. 
0 s2ND WORD IS THE apd LOW ADDRES 
0 ;3RD WORD IS THE BUFFER HIGH 
0 34TH WORD IS THE BYTE/RECORD/FILE COUNT 
: GET STATUS COMMAND PACKET. 
, z <,°3>€177774 sMUST BE ON MOD 4 BOUNDRY. 
GSCPK:: .WORD GES 
3 MESSAGE BUFFER RELEASE COMMAND PACKET. 
: a <,+3>€177774 sMUST BE ON MOD 4 BOUNDRY. 
BRCPK:: .WORD MBR 
: REWIND COMMAND PACKET (USED IN ERROR RECOVERY ONLY) 
= <,°3>€177774 sMUST BE ON MOD 4 BOUNDRY. 


RWCPK:: .WORD RWD 
-WORD 1 
; WORK AREA FOR ANALYSIS OF MESSAGE PACKET CONTENTS. 


MSGPKT:: .BLKW 8. :1ST WORD:: MESSAGE TYPE. 
;2ND WORD:: DATA FIELD LENGTH. 
2 atte FRAME COUNT. 


vw 
+ 
=z 
w 
~ 
vs 
~ 
~ 


5 MESSAGE PACKETS. 

MSGPKO:: .BLKW 8. sMESSAGE PACKET FOR DEVICE #0 
MSGPKi1:: .BLKW 8. sMESSAGE PACKET FOR DEVICE #1 
MSGPK2:: .BLKW 8. sMESSAGE PACKET FOR DEVICE #@2 
MSGPK3:: .BLKW 8. sMESSAGE PACKET FOR DEVICE #3 


SET CHARACTERISTIC BLOCK. 
SCHBK:: MSGPKO 51ST WORD:: MSGPKT ADDR LO(SET UP BY EXCUTE ROUTINE). 
MSGPKT ADDR HI. 


; 3 
MSGCNT WORD:: MSG BUFFER LENGTH (BYTES) 
on. ERS 14TH WORD: : CHARACTERISTICS WORDC(CSET BY SETUP ROUTINE). 
35TH WORD:: HSP €& BUFFER CONTROL ON EXT’'D FEATURES 
8 WRITE SUB-SYSTEM MEMORY os ine BLOCK. 
WSMBK:: O T WORD:: SEL O 
0 1D WORD:: SEL 
8) :;3RD WORD:: SEL 


L4 


2361 
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SEQ 0050 


i TSOS REGISTER ADDRESSES. 
SOB:: .BLKW 4 ;TSOS DATA BUFFER ADDRESSES. 
TSSR:: .BLKW 4 TS05 STATUS REGISTER ADDRESSES. 
TSVCT:: .BLKW 4 ;7SOS VECTOR ADDRES 
TSBA==TS0B8 ;DATA BUFFER ADDRESS REGISTER. 
; ADDRESSES OF MESSAGE PACKETS. 
MSGPKA:: MSGPKO :DEVICE 0. 
MSGPK1 ;DEVICE 1. 
MSGPK2 ;DEVICE 2. 
MSGPK3 ;DEVICE 3. 
; ADDRESSES OF INTERRUPT HANDLING ROUTINES. 
SSINT:: TSSINO ;DEVICE 0. 
"TSSINI ;DEVICE 1. 
TSSIN2 :DEVICE 2. 
TSSIN3 ;DEVICE 3. 
i TSOS CODE LEVELS, WILL BE STORED AFTER SCH CMD IN BASIC FUNCTION TEST 
SSCL:: ;DEVICE 
sDEVICE i 
sDEVICE 2 
0 ;DEVICE 3 
i TSOS EXT. FEA & BUF. ENA SW’S, WILL BE STORED AFTER SCH CMD IN BASIC FUNCTION TEST 
SSSW ;DEVICE 
0 ;DEVICE 1 
0 sDEVICE 2 
0 ;DEVICE 3 
; UNIT NUMBERS OF ALL DEVICES BEING TESTED(1-4). 
; WHEN DEVICE IS NOT IN USE, IT.S LOCATION WILL = -3. 
RS WILL ALWAYS CONTAIN THE PRESENT LOGICAL UNIT NUMBER X 2. 
beVTBL: : .WORD WNINUSE 
.WORD WNINUSE 
-WORD WNINUSE 
.WORD WNINUSE 
.WORD END 
; BAD TAPE TABLE POINTER: USED BY WRITE RETRY ROUTINE 
A “WRTY” TO LOG BAD TAPE SPOTS ON UNITS UNDER TEST 
TADOR:: BTO 
BT1 
BT2 
BT3 


M4 


GLOBAL AREAS 


MACRO VOS.03 Friday 22-May-87 08:12 Page 22 
GLOBAL DATA SECTION 


002626 


003376 


$ COUNTER AREA 
CNTBGN-. 
WRBC:: .BLKW 20 
RRBC:: .BLKW 
RFBC:: .BLKW 20 
WRREC:: .BLKW 4 
WRUNR:: .BLKW 4 
RRREC:: .BLKW 4 
RRUNR:: .BLKW 4 
RFREC:: .BLKW 4 
RFUNR:: .BLKW 4 
BTO:: -BLKW 21 
BTl:: -BLKW 2] 
BT2:: .BLKW 1 

T3:: .BLKW 1 
WRTYCT:: .BLKW 

ASCNT:: .BLKW 

: .BLKW 


CNTLEN==CNTEND-CNTBGN 


3 THE FOLLOWING ARE 
3 USED BY THE PROGRAM 
DATAWT:: .WORD O 
DIABLK==DATAWT 
DATARD:: .WORD O 
NCNT:: .WORD 0 
NCNT1:: .WORD 0 
BRFCNT:: .WORD O 
CMDWRD:: .WORD END 
CMDSAV:: .WORD END 
PCMDWD:: .WORD END 
CMOLG:: .WORD 0O 
LENMSK:: .WORD O 
RANB:: .WORD 153624 
RANS:: .WORD 1 
TIME1:: .WORD O 
TIME2:: .WORD O 
JLOOP:: .WORD O 
JLOC:: .WORD O 
PATERN:: .WORD O 
CTCC:: .WORD 0 
RSSAVE:: .WORD O 
TSSREG:: .WORD O 
WTIMFLG:: .WORD O 


;BYTES WRITTEN. 


ieaeoe RETRY 


ASS COUNT. 
CPECTAL CONDITION COUNT. 
sCOUNT OF TSOS DATA. COMPARE ERRORS. 


OUNT OF HARD 
;COUNT OF FATAL ERRORS. 
sEND OF STATICTICAL COUNTERS. 
sNUMBER OF RECORDS FROM BOT: CLEARED ON REWIND 
; AND RESTARTING OR CONTINUING vars 2. 
;LENGTH OF STATISTICAL COUNTER AREA 


_— DEFINITIONS OF VARIABLES 


sWRITE BUFFER ADDRESS. 
;WRITE BUFFER ALSO USED FOR DIAG CMD. 
READ BUFFER ADDRESS 


Vv 
sCONTAINS COMMAND WORD BEING EXECUTED PRESENTLY. 
sSAVE LOCATION FOR CMD WORD DURING ERROR RECOVERY 
NS PREVOUS COMMAND WORD. 


3C 

;CURRENT COMMAND LOGGING CODE. 

; RANDOM ane LENGTH pee TO BE SET UP BY TESTS 
sRANDOM @ GENERATOR BASE. 

sRANDOM @ ss LOCATION. 


LOOP COUNT. 
3 JMP LOCATION COUNT. 
1PATTERN SELECT CODE. 
T NATION CLASS CODE. 
URRENT 


;LOCATION 4 SAVING C DEVICE POINTER. 
sCURRENT STA a, & mgeTS TER. 
;WRITE TAPE MARK FLAG 


SEQ 0051 


N4 
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SEQ 0052 
GLOBAL DATA SECTION 
2462 ; ERROR FLAG AREA, THESE FLAGS ARE CLEARED DURING INITIALIZATION AND 
2465 ; AFTER EACH COMMAND IS COMPLETED. 
2465 003460 LG-. 
003460 000000 RETRYC:: .WORD 0O @ OF “eserae” ATTEMPTS EXECUTED. 
2467 003462 000 TCNT:: .BYTE O ;WRITE REPEAT ON SAME SPOT CNTR: 4 PER WRITE RETRY 
2466 003465 000 WRTYFG:: .BYTE 0O sWRITE RETRY ON SAME SPOT IN PROGRESS FLAG 
2469 00 000 TYER:: .BYTE O s;sWRITE RETRY ON SAME SPOT ERROR FLAG 
2470 003465 000 RECLOG:: .BYTE 0O sRECORD COUNT HAS BEEN UPDATED FOR THIS RECORD. 
2471 00 000 ERLOG:: .BYTE 0 sDATA BYTES AND ERRORS HAVE BEEN LOGGED FOR THIS RECORD. 
2472 003467 000 RWERR: : 0 sREAD/WRITE ERROR HAS OCCURED. 
2473 003470 000 UNREC:: .BYTE 0 s UNRECOVERABLE ERROR HAS OCCURED. 
=< 003471 000 ERRREC:: .BYTE 0O sERROR RECOVERY MODE. 
2476 003472 ENDERF =. 
5478 
ap i ADDITIONAL FLAGS, THESE FLAGS ARE CLEARED DURING INITIALIZATION. 
2481 003472 INTFLG:: .BLKW 4 s INTERRUPT OCCURRED FLAGS FOR EACH DEVICE. 
2482 003502 EOTFLG:: .BLKW 4 101 7801 FLAGS FOR EACH DEVICE (XSTATO). 
2483 003512 000000 BIPT:: 0 TAPE SPOT POINTER TO BT0-8T3 VIA BTADOR 
2484 003514 000 EXPBOT:: .BYTE O :BOT IS EXPECTED, DO NOT ABORT ON BOT/FUNC RTI. 
003515 000 RANDOM:: .BYTE 0O sRANDOM EVERYTHING FLAG. 
003516 000 VFYFLG:: .BYTE 0O :SET DURING WRITE/VERIFY COMMAND . 
2487 003517 000 RPTFLG:: .BYTE 0O PERF ORMANCE HAS BEEN REQUESTED. 
00 000 SWBFLG:: .BYTE 0O sENABLES SWAP BYTE FUNCTION WHEN NOT EQUAL TO ZERO. 
2489 003521 000 RE:: BYTE 0O SINHIBIT RESIDUAL FRAME COUNT ERROR REPORT. 
2490 003522 000 :: .BYTE O sCURRENT UNIT HAS BEEN 
2491 003525 000 TISWB:: .BYTE O sTESTI SWAP BYTES FLAG 
2492 005 000 ALLEOT:: .BYTE O sALL UNITS @ EOT FLAG 
2493 0035525 000 ERSFLG:: .BYTE 0 sERASE FLAG: DO ERASE AFTER A SPACE REV TO DELETE 
2494 rBADLY WRITTEN wiry 1 TO 4 ERASES LEAVING 
2495 A 3 TO 12 INCH GAP MAY RESULT. 
2496 .EVEN 
<See 003526 ENDFLS=. 
2499 : ADDITIONAL FLAGS, THESE FLAGS ARE CLEARED ONLY AFTER BEING CHECKED 
2501 00 000 STAFLG:: .BYTE 0O sSTART FLAG - SET BY INIT CODE IF STARTING. 
2502 003527 000 PWRFLG:: .BYTE 0O sPOWER FAIL URE FLAG - SET ONLY DURING INIT. 
2503 0035 000 TRAPD4:: .BYTE O ; TRAPED AT 4 FLAG 
2504 003531 000 MISCFG:: .BYTE 0O ee Las FLAG 
2505 003532 000000 TSUNT:: . 0 sNUMBER OF THE UNIT yo TEST PLUS HSSPEBUF 
<a08 35 000000 TSNP:: .WORD O sFOR PRINT OUT UNIT @ ONLY 
2508 ; OPERATOR FLAG SETTINGS PASSED BY DIAG. SUPERVISOR IN A 16 BIT WORD 
Sarp ; SEE GLOBAL EQUATES SECTION FOR FLAG BIT LIST 
2511 003536 000000 


OPFLAG:: .WORD 0O sREAD ONLY OPERATOR FLAG WORD 


BS 
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SEQ 0053 
GLOBAL DATA SECTION : 
2514 ; THE FOLLOWING IS THE COMMAND SEQUENCE TABLE. THE TABLE 
2515 sHAS DEFAULT VALUES AT PROGRAM LOAD AS SHOWN. THESE VALUES 
e216 :;CAN BE UPDATED BY A TEST OR BY OPERATOR INPUT. 
2518 003540 140004 CMDSEQ@:: .WORD SCH ;SET CHARACTERISTICS. 
2519 003542 000040 .WORD CH.EAI 
2520 003544 000001 .WORD 1 
2521 003546 000000 .WORD O 
2522 003550 102010 CMDSE2:: .WORD RWD REWIND. 
2523 003552 000001 .WORD 1 s;BYTE COUNT 
2524 003554 000001 .WORD 1 ONCE . 
2525 003556 000007 .WORD RANP ;PATTERN 
2526 003560 104005 .WORD WRT ;WRITE. 
2527 003562 .WORD DATCNT sMAX BUFFER LENGTH. 
2528 003564 076400 .WORD 32000. 332,000 RECORDS. ; 
2529 003566 .WORD RANP ;RANDOM PATTERN. 
2530 003570 104401 . WORD AD REV 
2531 003572 .WORD DATCNT ;MAX BUFFER LENGTH 
003574 076400 .WORD 32000. 132. 000 RECORDS 
2533 003576 000007 .WORD RANP ;RANDOM PATTERN. 
003600 104001 .WORD RDF s;READ FWD. 
2535 003602 004000 .WORD DATCNT MAX BUFFER LENGTH. 
36 003604 076400 .WORD 32000. ;32,000 RECORDS. 
2537 003606 7 .WORD  RANP ;RANDOM PATTERN. 
003610 102010 .WORD RWD sREWIND. 
2539 003612 .WORD i ‘BYTE COUNT. 
003614 000001 .WORD 1 
2541 003616 000007 .WORD RANP 


S 
TTERN. 
VEXTENSTION TO DOUBLE rae. SIZE 


2542 003620 "BLKW 40. 
2543 003740 177777 SEQEND:: .WORD END ;SOFT END OF SEQUENCE T 
2544 003742 177777 .WORD END 
2545 003744 177777 “WORD END 
2546 003746 177777 “WORD END 
2547 003750 177777 “WORD END ;HARD END OF SEQUENCE TABLE. 
2348 ;THE FOLLOWING IS THE TSOS COMMAND TABLE 
2550 003752 100013 CMDTBL:: .WORD ORI ;DRIVE INIT 
2551 003754 104001 WORD ROF ;READ FORWARD 
25 3756 104401 “WORD ROR ;READ REVER 
2553 003760 104005 “WORD WRT ;WRITE 
2554 003762 104105 “WORD WTV ;WRITE/VERIFY. (WRITE ALL RECORDS, ROR AND 
2555 ;CHECK DATA ON ALL RECORDS, RDF AND 
2556 ;CHECK DATA ON ALL RECORDS 
2557 003764 104010 .WORD SRF ;SPACE "N” REC ORWARD 
2558 003766 104410 “WORD SRR ;SPACE “N” RECORDS REVERSE. 
2559 003770 1 1 “WORD RNR sREAD NEXT REVERSE. I.E., SPACE FWD, READ REVERSE. 
003772 125401 “WORD  RNF ;READ NEXT FORWARD, I.€., READ FORWARD, SPACE REVERSE. 
2561 003774 105001 "WORD RPF ;READ PREVIOUS FORWARD. I.€., SPACE REVERSE, READ FORWARD 
2562 003776 125001 “WORD RPR ;READ PREVIOUS REVERSE. I.€., READ REVERSE. SPACE FORWARD 
2563 1 “WORD WRR ;sWRITE RETRY 
2564 004002 102010 “WORD RWD ;REWIND. 
2565 -WORD MBR MESSAGE BUFFER RELEASE 
2566 “WORD  WTM ;WRITE TAPE MARK 
2567 004010 101011 “WORD WTR ;WRITE TAPE MARK RETRY. 
004012 -WORD SFF ;SPACE “N” FILES FORWARD. 

9 004014 105410 “WORD SFR 1 SPACE “N” FILES REVERSE. 

2570 004016 100017 ,WORD GES ;GET EXTENDED STATUS. 


C5 
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SEQ 0054 





100411 WORD ERS ;ERASE 3 INCHES OF TAPE. 
100412 WORD UNL ;REWIND AND UNLOAD. 
101012 .WORD  CLN ;CLEAR TAPE. 
140004 - WORD SCH ;SET CHARACTERISTICS. 
100006 DIA sDIAGNOST IC COMMAND. 
000040 “WORD UMP sJUMP TO THE NTH COMMAND IN THE SEQUENCE. 
000020 “WORD OLY ‘DELAY "N" MS. 
177777 “WORD END ;END OF COMMAND TABLE 
; THE FOLLOWING TABLE CONTAINS THE ASCII FOR EACH COMMAND. 
122 111 CMDASC:: .ASCII /ORI/ ;ORIVE INIT. 
122 104 106 ASCII /RDF/ ;READ FORWARD 
122 104 122 “ASCII /ROR/ ;READ REVERSE 
127 122 124 “ASCII /WRT/ ; WRITE 
127 124 126 “ASCII /WTV/ ;WRITE/VERIFY. (WRITE ALL RECORDS, ROR AND CHECK DATA 
;0N ALL RECORDS, ROF AND CHECK DATA ON ALL RECORDS. ) 
123 122 1 .ASCII /SRF/ ;SPACE “N” RECORDS FORWARD. 
123 122 122 “ASCII /SRR/ ACE "N” RECORDS RE 
22 116 122 “ASCII /RNR/ ;READ NEXT SE. I.€., SPACE FWD READ SE. 
122 116 1 “ASCII /RNF/ ;READ NEXT FORWARD, I.€.. EAD FORWARD, SPACE REVERSE. 
122 120 "ASCII /RPF/ ;READ PREVIOUS F IE., SPACE REVERSE, READ FORWARD 
122 120 122 “ASCII /RPR/ ;READ PREVIOUS REVERSE. IE.. READ REVERSE, SPACE FORWARD 
127 122 22 “ASCII /WRR/ ;WRITE RETRY. 
122 127 1 “ASCII /RWD/ ; REWIND. 
115 102 122 "ASCII /MBR/ ;MESSAGE BUFFER RELEASE 
127 124 115 “ASCII /WTM/ ;WRITE TAPE MARK 
127 124 122 “ASCII /WTR/ ;WRITE TAPE MARK 
123 106 1 “ASCII /SFF/ ;SPACE “N” FILES F 
23 106 122 “ASCII /SFR/ :SPACE “N” FILES REVERSE 
107 105 123 ‘ASCII /GES/ ;GET EXTENDED ST 
105 122 123 “ASCII /ERS/ ;ERASE 3 INCHES OF TAPE 
125 116 114 “ASCII /UNL ;REWIND AND UNL 
103 114 116 “ASCII /CLN/ ‘CLEAN TAPE. 
123 103 110 “ASCII /SCH/ ;SET CHARACTERISTICS WHERE BRF=200, 40, 20, 0. 
SSEE TSVOS/TSOS PROGRAMMING SPECIFICATION FOR DESCRIPTION. 
104 111 101 .ASCII /OIA/ SOS PROGRAMMING SPECIFICATION 
TO LOAD DIAGNOSTIC DATA 
112 115 120 .ASCII /UMP/ IN THE 
ter N IS DEFINED IN 
104 114 131 .ASCII /OLY/ ;DELAY “N” MS, WHERE N IS DEFINED IN 
;THE @ OF OPERATIONS. 
105 116 104 ASCII /END/ ;END OF SE 
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SE@ 0055 
GLOBAL TEXT SECTION 
2619 .SBTTL GLOBAL TEXT SECTION 
soey 
262 ; “THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
262 ; Ate AE AND ASCII INFORMATION THAT ARE USED IN 
2624 ; MORE THAN ONE TEST. 
2625 3-- 
2626 
2627 
2634 ; 
2655 ; FORMAT STATEMENTS USED IN PRINT CALLS 
2636 : 
5638 Ist BEX 
- NL 
3639 





/SNSAUNIT #8D18A TSOS CODE LEVEL sO3sNsN/ 
/@NSAUNIT 8D18A TSOS SWITCH SETTINGS sO38NSN/ 


2642 EVEN 
2643 004306 130 130 130 HALTM:: .ASCIZ /XXX CMD - TYPE <CR> TO CONTINUE/ 
2644 004346 103 115 104 CMDPKM:: .ASCIZ /CMD PACKET ADR NOT ON MODULO 4 BOUNDARY: RELOAD!/ 

















2645 .EVEN 
2646 004430 104 101 124 WTVERM:: .ASCIZ /DATA COMPARE ERROR/ 
2647 004453 116 117 040 TOERM:: .ASCIZ /NO TSVOS RESPONSE/ 
004475 1 116 1 : .ASCIZ /UNDEFINED SPEC COND/ 
2649 004521 122 106 103 RFCERM:: .ASCIZ /RF 
536 1 123 1 : .ASCIZ /TSVOS NO 
2651 004556 122 1 124 RLEXM:: .ASCIZ /RETRY LIMIT EXCEEDED/ 
004603 104 122 111 ATTNM:: .ASCIZ /ORI F LINE 
2653 004622 106 116 F : .ASCIZ /FUNCTION REJECT/ 
265% 004642 106 101 124 FATSM:: .ASCIZ /FATAL SUBSYSTEM ERROR/ 
2655 004670 116 117 040 NOINTM:: .ASCIZ /NO INTERRUPT/ 
004705 124 101 120 TSAM:: .ASCIZ /TAPE STATUS ALERT/ 
2657 004727 124 117 117 T :: .ASCIZ /TOO MANY INTERRUPTS/ 
004753 103 101 120 RNYM:: .ASCIZ /CAPSTAN RUNAWAY-GET STATUS RESULTS:/ 
2659 005017 122 1 103 RERM:: Oeess /RECOVERABLE ERROR/ 
005041 125 116 122 URERM:: .ASCIZ /UNRECOVERABLE ERROR/ 
2661 005065 045 116 045 DROPOM:: .ASCIZ / UNIT #D1sN/ 
005114 045 116 045 AUDRPM:: .ASCIZ forery ry UNIT 
2663 005146 045 116 045 AUDRUN:: .ASCIZ /SNSADIAGNOSTIC ONLY SUPPORTS ONE CONTROLLERSNSN/ 
005226 045 116 045 OTAER2:: .ASCIZ “sSNSABYTE : SD4sS28AWAS : 8B8SS28AS/B : SBSAN” 
75 045 1 064 DTAERS:: ReetS “"sD4eA eyes IN ERROR OUT OF sD4sN“ 
2666 005337 045 01 116 OTAER4:: .ASCIZ /sSANO DATA READSN/ 
2667 005360 045 101 122 OTAERS:: Ast /*@PRE° ORD TOO LONG: >8048A BYTESSN/ 
2668 005422 045 01 122 WNURTY1:: .ASCI (BARECOVERED ON RETRY @8D25N/ 
005456 045 101 104 OFLINM:: .ASCIZ VE #D1sA OFF LINESN/ 
2670 005507 045 101 107 GETSTM:: .ASCIZ TUS CMD RESULTS:s#N/ 
2671 005543 045 116 045 NODEV:: .ASCII AP AT #s068N/ 
2672 005570 045 101 111 .ASCIZ /#AINTERFACE BAD OR TSDB NOT SET TO ABOVE ADDRESSSN/ 
2673 005653 040 OS2 UNIWK: .ASCIZ / eeeesTAPE IS WRITE-LOCKED AND WILL CAUSE ERRORSeeees/ 
2674 005741 045 116 000 ao, 7; /BN/ 
2675 005744 045 116 045 FSP:: .ASCIZ /sNSS7/ 
2676 .LIST BEX 





>. 
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GLOBAL ERROR REPORT SECTION 
2679 .SBTTL GLOBAL ERROR REPORT SECTION 
2681 ;ee 
2682 ; THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX CALLS 
2683 ; THAT ARE USED IN MORE THAN ONE TEST. IT ALSO INCLUDES THE ASCII MESSAGES 
2684 ; THAT ARE USED BY THE PRINTB AND PRINTX CALLS. 
2683 ;oeo 
2686 
2687 
2688 005752 BGNMSG DTAERM 
005752 DTAERM: : 
2694 005752 DATERM: :PRINTB #STAER1, TSNP,.PASCNT(RS).RECCNT(RS) 
005752 016546 003376 MOV RECCNT(RS), -(SP) 
005756 016546 003 MOV PASCNT(RS), -(SP) 
005762 013746 003534 MOV TSNP , -(SP) 
005766 012746 MOV OSTAER1, -(SP) 
005772 012746 MOV 04,-(SP) 
005776 01 MOV SP. RO 
006000 104414 TRAP CSPNTB 
006002 062706 000012 ADD #12,SP 
2695 006006 PRINTB #STAER7 
006006 012746 006530 MOV @STAERT, -(SP) 
006012 012746 000001 MOV #1,-(SP) 
006016 01 MOV SP RO 
006020 104414 TRAP CsPNTB 
006022 0627 ADO 64,SP 
2696 006026 010237 007066 R2, ;SAVE R2 
2697 006032 010337 003436 MOV R3. TIME] ;SAVE R3 
2698 006036 010437 3440 MOV R4: TIMED ; SAVE 
2699 006042 004737 010124 JSR PC. RECTAP ;RETRIEVE RECORD READ 
2700 006046 013702 007066 MOV RECRED ,R2 ;RESTORE R2 
2701 006052 010337 007066 MOV R3, RECRED ;SAVE RECORD READ 
2702 006056 013703 003436 MOV TIME1.R3 ;REST RS 
2703 006062 013704 003440 Vv TIMED. R4 ;RESTORE R 
2704 006066 PRINTB @STAER6,RE ;PRINT RECORD READ 
006066 013746 007066 MOV RECRED, -( SP) 
006072 012746 006562 MOV OSTAERG, -( SP) 
006076 012746 000002 MOV 62,-(SP) 
006102 01 MOV SP RO 
006104 104414 TRAP C$PNTB 
006106 062706 000006 ADD ‘ 
2705 006112 EXIT MSG 
.WORD J$UMP 
. WORD L10002-2-. 
.EVEN 
ENDMSG 
006116 L10002: 
nl 006116 104423 TRAP C$MSG 
2710 006120 BGNMSG STAERM 
006120 STAERM: : 
2711 006120 STAERM: :PRINTB #STAER1, TSNP.PASCNT(RS),RECCNT(RS) 
006120 016546 003376 MOV RECCNT (RS). - (SP) 
006124 016546 003326 MOV Pp R5),-(SP) 
006130 013746 003534 MOV TSNP , -(SP) 
006134 012746 006436 MOV @STAER1, -(SP) 
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SEQ 0057 
GLOBAL ERROR REPORT SECTION 
006140 012746 000004 MOV 04,-(SP) 
006144 010600 MOV SP .RO 
006146 104414 TRAP  CSPNTB 
006150 062706 000012 ADO $12,SP 
2712 006154 PRINTB #@STAER7 
006154 012746 006530 MOV @STAERT, -(SP) 
006160 012746 000001 MOV #1,-(SP) 
006164 01 MOV SP, 
006166 104414 TRAP C$PNTB 
006170 0627 ADD $4,SP 
2713 006174 013702 3 MOV CMDPKT , R2 
2714 006200 7 177740 BIC $177740,R2 
2715 006204 DEC R2 ;IF CMD IS A READ 
2716 006206 7 TST R2 
2717 006210 001016 BNE 50000$ 
2718 006212 737 010124 JSR PC ,RECTAP ; THEN RETRIEVE 
2719 006216 010337 010124 MOV R3.RECTAP ; AND 
2720 006222 PRINTB #@STAER6,RECRED ; TYPE RECORD READ 
006222 013746 007066 RECRED, -(SP) 
006226 012746 006562 OSTAERG, -(SP) 
006232 012746 MO @2,-(SP) 
006236 01 MOV SP. RO 
006240 104414 TRAP CSPNTB 
006242 062706 000006 ADD $6, SP 
2721 006246 50000$: PRINTX #STAER2 
006246 012746 006616 @STAER2, -( SP) 
006252 012746 00000 #1,-(SP) 
006256 01 MOV SP RO 
006260 104415 TRAP C$PNTX 
006262 062706 000004 ADD 64,SP 
2722 006266 PRINTX #@STAER3,CMDPKT, aTSDB(RS).MSGPKT-MS.RFC, TSSREG.CTCC 
006266 013746 003450 MOV CTCC.-(SP) 
006272 013746 003454 MOV TSSREG, -(SP) 
006276 013746 002360 MOV T>MS RFC, -(SP) 
006302 01 002514 MOV @TSDBCRS). -(SP 
006306 013746 002330 MOV CMDPKT . -( SP) 
006312 012746 006675 MOV OSTAERS, -(SP) 
006316 012746 MOV 96,-(SP) 
006322 01 MOV SP RO 
006324 104415 TRAP CSPNTX 
006326 062706 000016 ADD €16,SP 
2723 006332 PRINTX @STAER4,CMDPKT~2, CMDPKT+4, CMDPKT +6 
006332 013746 002336 MOV CMOPKT +6. -( SP) 
006336 013746 002334 MOV o4,-(SP) 
006342 013746 002332 MOV CMDPKT +2, -(SP) 
006346 012746 006733 MOV @STAER4, -(SP) 
352 012746 MOV 64,-(SP) 
006356 01 MOV SP RO 
360 104415 TRAP C$PNTX 
006362 062706 000012 ADD 612,SP 
, 2724 006366 PRINTX @STAERS,MSGPKT+MS.XSO,MSGPKT+MS .XS1,MSGPKT+MS.XS2,MSGPKT «MS. XS3,MSGPKT-MS. XS 
006366 013746 002372 MOV MSGPKT «MS .XS4,-(SP) 
006372 013746 002370 MOV MSGPKT +MS .XS3. -(SP) 
006376 013746 002 MOV MSGPKT «MS .XS2_.-(SP) 
013746 002364 MOV MSGPKT «MS . X51. -(SP) 
013746 002 MOV MSGPKT «MS . XSO. -(SP) 
006412 012746 00675 MOV @STAERS, -(SP) 
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006416 
006422 


007070 
007070 
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_ SEQ 0058 
MOV 06, -CSP) 
MOV SP; RO 
TRAP C$PNTX 
ADD $16,SP 
EXIT MSG 
WORD J$JMP 
“WORD £10003-2- 
NLIST BEX 
STAER1: ASCIZ /%AXXX CMD FAILED - UNIT #D1sS3SAPASS: SD58S3sSARECORD : sDSsN/ 
STAER7: .ASCIZ /s#APREVIOUS CMD WAS XXX A 
STAER6: .ASCIZ /s#S11sAe RECORD READ: sD5sA 
STAER2: .ASCIZ /ENSACMDPKTSSOSAT SBASSABARF CASSBATSSRSS3SATCCSN/ 
STAER3: .ASCIZ /8068S28068S28068S28068S28D15N/ 
STAER4: .ASCII / 
“ASCII /s06sN/ 
“ASCIZ /#06sN/ 
STAERS: .ASCII /#AXSTOSS4SAXST 1SS4SAXST28S48AXST 35S48AXST48N/ 
-ASCIZ /8068S28068S28068S28068S28068N/ 
LIST BEX 
RECRED: .WORD 0 ;RECORD READ FROM TAPE 
ENDMSG 
L10003: 
TRAP C$MSG 
SBTTL GLOBAL SUBROUTINES SECTION 


+ THE GLOBAL SUBROUTINES SECTION pa THE SUBROUTINES 
; THAT ARE USED IN MORE THAN ONE TEST 
,e2 


3° 


: 

;ROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 

BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT 

;THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
;DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 


i 

VINPUTS: 

; RS CURRENT UNIT NUMBER 

: 

‘OUTPUTS: 

RO CONTENTS OF TSSR, IF ERROR 
CARRY SET IF INIT WAS OKAY 

CLEAR IF FATAL ERROR 

3 


‘arte SEQUENCE 
JSR PC, FIRSTU 


H5 
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012775 
004737 

012703 
004737 

103416 
012727 
000000 


013727 
000000 


000000 
012740 
000550 
007204 
000250 
002116 
177772 
177756 


002524 
176277 
002200 


005670 
002524 


002524 


BCS 


2$: 


3%: 


SEQ 0059 
PC, SOFINIT 
CONT INUE 
;REPORT FATAL ERROR 
; CSAVREG) SAVE THE REGISTERS 
#0, aTSSR(RS) ; DO THE INIT. 
PC’ WSSR ;WAIT FOR UNIT TO BE READY 
$360. ,R3 
pC -WAITE ; WAIT FOR SSR 
250 
MOV $250 ,(PC)- 
. WORD 
MOV L$DLY,(PC)- 
WORD 0 
bEC “6¢PC) 
BNE 
DEC "33PC) 
BNE .-20 
3 
aTSSRCRS), RO ;GET THE TSSR REGISTER 
RO,R sTSSR CONTENTS 
areeTS, AL?#TS. Ale! TS. OFL>.R 
$TS.SSR!TS.NBA,R ; 4 HAS EXPECTED CONTENTS 
R4,RO ;ONLY EXPECTED BITS SET ? 
S$ ;BRANCH IF OKAY 
‘CLEAR THE CARRY FOR ERROR 
10% :GO TO EXIT 
;SET THE CARRY BIT 
PC ;RETURN TO CALLER 
WAIT FOR THE SUBSYSTEM READY FLAG 
CURRENT UNIT NUMBER 
CONTENTS OF LAST TSSR READ 
SET - READY BIT SET 
CLR - TIMEOUT WAITING FOR READY 
; DO A SUPVSR BREAK FIRST. 
TRAP C$BRK 
93000. ,-(SP) ; 300 MSEC TI 
aTSSR(RS),RO ;READ THE TSSR REGISTER 
RO ;TEST FOR READY BIT SET 
34 ; EXIT ON STOP FLAG. 
25 WAIT 
MOV €25,(PC)- 
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2867 007312 
2868 320 
2869 007322 
2870 007326 
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013797 
000000 


002116 
177772 
177756 


002322 


000012 


3$: 
4$: 


3° 


Aa 


arth 


5 
tae tole STACK WIT 


SEQ 0060 
-WORD 0 
MOV L$OLY,(CPC)- 
.WORD O 
DEC -6(PC) 
BNE -* 
DEC -22(PC) 
BNE .-20 


sREDUCE DELAY COUNT 

sRETRY UNTIL TIMER EXPIRES 

. = 0, ath y STILL RUNNING... 
.OR Pay: UP AF 300 MSEC. 


TER 
CONTROLLER IS STOPPED. 
HOUT CHANGING CARRY BIT 


; 
——— TO ISSUE A WRITE CHARACTERISTICS COMMAND AND CHECK FEATURES 


S INPUT : 


;SIDE EFFECTS: 


WRT CHK: 
10$: 


40%: 


45$: 


: 
: 


RO 


CARRY 


a ADDRESS OF COMMAND PACKET 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 


CONTENTS 


TSSR 
SET - WRITE CHARACTERISTICS COMMAND OK 
CLR - WRITE CHARACTERISTICS FAILED 


IMPLICIT OUTPUT: 


SOFTWARE SWITCHES SET AS FOLLOWS: 
EXTFEA = EXTENDED FEATURES PRESENT 
BENBSW = BUFFER ENABLE SWITCH ON OR OFF 


R4 , aTSDBCRS ) 
PC ,WAITF 


rt 
a3). 
3 ere. MS .XS2(R3) 
EXTFEA 


SSR 
s;BR, IF SSR IS SET AND OK 
TROUBLE CARRY = CLEAR 


EP IT 
sPOINT TO WRT CHARA DATA PACKET 
sGET ADDRESS OF MESSAGE BUFFER 
sEXTENDED FEATURES BIT SET? 
CET E EXTENDED FEATURES SW SWITCH 


J5 
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016337 
042737 
022737 
001406 
012737 
052763 


000261 
000401 


000241 
017500 
000207 


000100 


017240 


000012 


002322 


BIT 
BEQ 
INC 

508: 
MOV 
BIC 
CMP 
BEQ 
MOV 
BIS 

55$: SEC 
BR 

60$: CLC 

70$: MOV 
RTS 

3° 

; 

sROUTINE TO 

; 

; INPUT: 

. 

; R4 

3 RS 

; 

ULKCHK : 

10$: MOV 
JSR 
BCS 
BR 

403: TST 
MOV 
MOV 
BIT 
BEG 
JSR 
BR 

55%: SEC 
BR 

60$: CLC 

70%: 
RTS 


@X2 .BFE.MS.xS2(R3) 
50$ 

BENBSW 

XST2(R3), REV 
017700, REV 
01 ,REV 

55$ 

$1, EXTFEA 


@X2 .EXTF ,.XST2CR3) 


70$ 
@TSSRCRS),RO 
PC 


CHECK WRITE LOCK CONDITION 


;BUFFER ENABLE SWITCH SET 
IF SWITCH NOT SET 


SET SOFTWARE SWITCH FOR ENABLED 


CL 

‘IS 17 A NEW MICROC 

;NO BR 

sALWAY EXTENDED FEATURE FOR NEW 
EXTENDED FEATURE ALWAYS SET IN 
"SET CARRY NO TROUBLE 

sEXIT 

;CARRY CLEAR = 


ERROR 
sRETURN TSSR CONTENTS 
;RETURN 


ADDRESS OF COMMAND PACKET 
NUMBER 


CURRENT UNIT 


R4 , AaTSDBCRS ) 
WAITF 


sf .WLK MS. XSOCR3) 
1, UNIWLK 


OR SSR 
;BR, IF SSR IS SET AND OK 
BR TROUBLE CARRY = CLEAR 


EP IT 
cope TO WRT CHARA DATA PACKET 
;GET ADDRESS OF MESSAGE BUFFER 
iTs UNIT WRITE LOCKED? 

WITH TESTING 
iT Abe IS WRITE LOCKED 


;DROP IT 
;EXIT WITH CARRY=0 
;SET CARRY NO TROUBLE 


;EXIT 
;CARRY CLEAR = ERROR 
;RETURN 


sROUTINE TO ISSUE A WRITE CHARACTERISTICS COMMAND 


; 
3; INPUT: 


SEQ 0061 


KS 
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2941 


007476 010475 002514 
007502 004737 007204 
103401 
000402 


WeuseeSeRagagERseaapUMUROUSEEEAEEEES 


3 3 
338 
Sse 
ue 
4: 
. 

: 
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R4 ADDRESS OF Caewe PACKET 

RS CURRENT a 

REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 
OUTPUT : 

RO SSR CONTENTS 


T 
CARRY SET - WRITE CHARACTERISTICS COMMAND OK 
CLR - WRITE CHARACTERISTICS FAILED 


IMPLICIT OUTPUT: 


SIDE EFFECTS: 
; 
ie 
WRT CHR 
$: MOV R4, aTSDB(RS) ;SEND OUT C 
JSR PC. WAITF ;WAIT FOR SSR 
BCS ;8R, IF SSR IS SET AND OK 
Ses BR 60$ ;BR IF TROUBLE CARRY = CLEAR 
. SEC ;SET CARRY NO TROUBLE 
BR 70$ sEXIT 
60$: CLC ;CARRY CLEAR = ERROR 
70$: MOV @TSSR(RS),RO ;RETURN TSSR CONTENTS 
RTS PC ; RETURN 


s ROUTINE TO DO SET UP OF RUNNING CONDITIONS 


INPUTS: 

SS unmeNT WNIT MureeR 
; 

‘OUTPUTS: 

; 

CALLING SEQUENCE: 

3 JSR PC .FIRSTU 

3 neg PC ,SOF INIT 

ERRDF ;sREPORT FATAL ERROR 
5 JSR PC .MDSET 

: 

ge 


; DO A SUPVSR BREAK hes 
sRESTORE DEFAULT 


CSBRK 


SEQ 0062 


2 
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3 


SUPERS Scs teases SR CRSRSeeSUaeRSNSSESEEES & & 
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004737 
103416 


007416 


000001 
002116 
177772 
177756 


003532 


003532 


003532 


DELAY 


1$: 


2s: 


3$: 


4$: 


S$: 





PC ,WLKCHK 
- 


; CHECK “aa LOCK 


;C=1 IS 
;WAIT 
MOV 
. WORD 
MOV 
. WORD 
DEC 
BNE 
DEC 
BNE 
;BREAK TO SUPER 
TRAP 
;00 CLEAN AND ABORT 
TRAP 


;sRUN IN DEFAULT MODE? 
;YES 
RUN AT 100ips? 

3NO 

;YES,SET THE BIT 

;ARE WE SET? 

;YES 

UINVERT THE SWITCH 

sNOW SET THE MODES 

300 IT 

i WITH WRITE BUFFERING? 


;YES SET THE BITS 
;ARE WE SET? 


;YES 
SINVERT THE SWITCH 


sNOW SET THE MODES 
; IT 


oh WITH READ BUFFERING? 


:YES SET THE BITS 
sARE WE SET? 


;YES 

EINVERT THE SWITCH 
sNOW SET THE MODES 
300 IT 


;4ND UNIT @ 
sRETURN 


; SUBROUTINE TO INVERT SENSE OF EXT’'D FEATURES SWITCH 


S INPUTS: 
$ 


#1,(PC)- 


SE@ 0063 


LSOLY,(PC)- 


oe a 


"32cPC) 
.-20 


CSBRK 
C$O0CLN 


MS 


3027 
3028 


30 
3071 
3072 


3073 0 


3074 
3075 


3076 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


010102 
010102 
010102 

10106 
010106 
010106 
010110 
010110 
010110 
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012737 


140004 
002330 
002474 
000012 
000040 
003532 
002330 


003472 


003474 


003476 


RTS 


; SUBROUTINE TO 
; 
s INPUTS: 


sOUTPUTS: 
Ra 
SETDEF:: 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTS 
; MODULES 
BGNSRV 
TSSINO:: 
INC 
ENDSRV 
L10004; 
Vv 
TSSINI:: 
INC 
ENDSRV 
Li : 
Vv 
TSSIN2 


SEQ 0064 


@WSM, CMDPKT+CP . CMD ;WRT SUB-SYS MEM 
@WSMBK , CMDPKT+CP . ADL ;MSG BUF ADDR 

06, CMDPKT «CP. CNT ;BYTE COUNT 
#100010, WSMBK ;INVERT THE SWITCH 
OCMDPKT ,R4 : 

PC, WRTCHR ;00 IT 

PC ;RETURN 


SETUP DEFAULT SET CHAR CMD 


ADDRESS OF COMMAND PACKET 


ee CHAR CMD 


;SET UP COMMAND 
. ADL ;SET UP ADR LO TO POINT TO MSG BUF CMSGPKO) 
.CNT SSET BUFFER EXTENT 


s STORE en ORES CODE IN SCH BLOCK. 


S UNIT 
ADDRESS OF CMD PACKET 
sRETURN 


TO HANDLE TSOS INTERRUPTS. 


TSSINO 
INTFLG 


TSSIN1 
INTFLG-2 


TSSIN2 
INTFLG+4 


;SET INTERRUPT OCCURRED FLAG. 


RTI 


sSET INTERRUPT OCCURRED FLAG. 


RTI 


sSET INTERRUPT OCCURRED FLAG. 


NS 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 
3077 010114 
010114 


010114 


8 
3079 010116 
010116 


010122 


010174 


010176 
010176 
0200 
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000401 
011205 
000402 
017703 


000207 


012701 


003500 


177400 


003520 


177400 


173170 


003540 


003420 


L10006: 


TSSINS: : 


L10007: 


ENDSRV 


BGNSRV TSSINS 


INTF 


LG-6 


sSET INTERRUPT OCCURRED FLAG. 


SE@ 0065 


RTI 


RTI 


SUBROUTINE TO RETRIEVE RECORD COUNT READ FROM TAPE FOR ERROR 


;000 AD., REASSEMBLE - 


sLOWER BYTE AD. 


sLOWER BYTE AD. ON SWAP 


sEVEN AD. FETCH 


sREAD FWD FETCH 


= 


INPUTS; 
OUTPUTS: R3 = RECORD COUNT READ 
CALLS: 
‘BIT @H00 . CO. CHOWRD ;READ REV FETCH 
MOV MSGPKT «MS .RFC,R2 ;FIND LAST READ AD. 
ADD DATARD,R2 
BIT @BITOO.R2 
BEQ 50002$ 
INC R2 sREC COUNT STARTING 
MOVB (R2),R3 ;WITH UPPER BYTE FETCH 
BICB $177400,R3 
SWAB sé 
DEC R2 ;sLET R2 := R2 - #1 
TSTB SWBFLG :IFB SWBFLG NE #0 THEN 
BEQ 50003$ 
DEC ;LET R2 :* R2 - #1 
(R2),R4 ;FETCH LOWER BYTE 
BICB $177400,R4 
BIS R4,R3 
BR 50004$ 
MOV (R2),R3 ;LET RB := (R2) 
BR 500054 
MOV @DATARD,R3 ;LET R3 := @DATARD 
RTS PC 
SUBROUTINE TO STORE A SET CHARACTERISTIC COMMAND AS 
THE FIRST ENTRY IN THE SEQUENCE TABLE. 
OUTPUTS: 
REGISTERS: 
CALLS: 
MOV OCMDSEQ,R1 sINIT CMD SEQUENCE TABLE POINTER. 


B6 


3129 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


010226 
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012721 


012721 


012701 
021127 
001530 
004737 


002003 
012737 


013737 


140004 
000040 
000001 


003540 
177777 
011232 


003412 


011124 
003515 


003414 


104005 


003432 
003434 
003416 
003416 
000022 


003416 


002336 


SETRW: : 


EXALL:: 
50006$: 


50010$: 


50015$: 


50014$: 
50013: 
50012$: 


SEQ 0066 
MOV @SCH,(R1)- ;THIS CODE SETS UP A SET CHARACTERISTIC 
MOV OOF TSCH,(R1)- ; COMMAND AS THE FIRST COMMAND IN THE 
MOV #1,(R1)- ;SEQUENCE TABLE. 
TST (Ri)- SKIP PATTERN LOCATION, 
RTS PC 
SUBROUTINE TO STORE A REWIND COMMAND IN THE SEQUENCE TABLE 
OUTPUTS: 
REGISTERS: 
CALLS: 
MOV @RWD, (R1)- :CHO REWIND. 
MOV 1,(R1)- 
MOV *(R1)-« OF OPERATIONS. 
1ST (Ris 1 SKIP oat eco 
RTS PC ; RETURN 


SUBROUTINE TO EXECUTE ALL COMMANDS IN THE SEQUENCE TABLE ON ALL 
INPUTS: 
OUTPUT 


OUTPUTS: - R2 = TERMINATION INDICATOR (O=END OF TABLE,1=E€0T) 
CALLS: CMDAC,, SETUP , EXSUB , CKHAE , NEXTU, FIRSTU, VFYDAT. 
MOV @CMDSEQ,R1 ;INIT SEQUENCE TABLE POINTER. 
cNe CRI, @END ;WHILE THERE ARE CMDS IN THE SEQUENCE TABLE. 
JSR PC, SETUP ;GO SETUP THE COMMAND BLOCK. 
BREAK ; DO A SUPVSR BREAK FIRST. 
TRAP C$BRK 
cn NCNT , NNT ;WHILE THERE ARE RECORDS REMAINING: 
JSR PC, CMDAC sSTORE CMD ASCII IN ERROR MESSAGE. 
Tste) 08 ;IF IN RANDOM MODE: 
BEQ 50012$ 
CMP , OWRT ;IF CMD IS A WRITE THEN: 
BNE 50013$ 
TSTB =: VF YFLG ;IF DATA IS NOT TO BE VERIFIED THEN: 
BNE 50014 
ADD RANS , RANB ;LET RANB := RANB + RANS § ;GENERATE 
ADD RANB . RANS ;LET RANS := RANS + RANB ;RANDOM 
MOV RANS , BRFCNT ‘LET BRFCNT := RANS ; LENGTH 
BIC LENMSK,BRFCNT  ;MASK RANDOM LENGTH 
CHP BRF CNT, 016. ;00 NOT ALLOW BYTE COUNT OF LESS THAN 18 
MOV $18. ,BRFCNT sCHANGE COUNT OF 0-17 TO 18. 
MOV BRFCNT, CMDPKT+CP. CNT ;sMOVE BRF TO CMD PACKET. 


3185 
3 


3199 


Seegsnsees 


exons 
e@Urro 


COKER 
WeAOUWI 


3220 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 
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004737 
000746 


020227 


001001 
000412 


005237 
013737 
000655 
004737 


000645 


005902 
000207 


010564 
017540 
000001 
017142 


002604 
000400 
000002 


017210 


000001 
003412 
003420 


016126 


177777 
003420 
003502 


003502 
003420 


003424 


500168: 


500114: 


50007$%: 
EXARTN: 


CLR 
RTS PC 


SEQ 0067 
PC,EXSUB ‘ISSUE CMD TO ALL AWAIT INTS.CHECK STATUS. 
PC, CKHAE sCHECK HALT AFTER EACH CMD FLAG. 
#1,R2 :LET R2 := @1 ;SET ALL UNITS AT BOT/EOT. 
PC ;FIRSTU ;FIND FIRST UNIT! 


;WHILE THERE ARE MORE UNITS: 
sIF CMD IS REVERSE THEN: 
;IF NOT AT BOT THEN: 


DEVTBLCRS), END 
50017$ 
MOD . CO, CMDWRD 

#XO .BOT ,EOTFLGCRS) 
50021% 


R2 ;LET R2 := #0 ;CLEAR EOT/BOT FLAG. 
50022$ ;ELSE IF CMD IS NOT REVERSE: 
gX0 COT EOTFLGCRS) 
50023 
@CMD . CO, CMDWRD 
500244 
;IF NOT AT EOT OR NOT A MOTION CMD THEN: 
R2 ;CLEAR EOT/BOT FLAG. 
NEXTU ;FIND NEXT UNIT 
Soles 
R2,01 ;IF ALL UNIT ARE AT EOT/BOT THEN: 
50025$ 
EXARTN ;RETURN WITH R2 = #1. 
NCNT LET NCNT := NCNT + #1 UPDATE RECORD COUNT. 
CMOWRD . PCMDWO ;SAVE PREVIOUS COMMAND WORD. 
50010$ 
PC, VFYDAT ;IF LAST CMD WAS A WRITE VERIFY, THEN GO 
;VERIFY THE LAST N RECORDS OF DATA. 
50006 $ 
R2 ;LET R2 := 00 


;SET NORMAL RETURN INDICATOR. 
;RETURN. 


SUBROUTINE TO ISSUE COMMAND TO ALL DEVICES, WAIT FOR 


ALL INTERRUPTS, AND CHECK ALL STATUS. 
INPUTS 

OUTPUTS: 

REGISTERS: 

CALLS: EXCUTE ,GOWAIT ,NEXTU,FIRSTU. 


D6 
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SEQ 0068 
GLOBAL SUBROUTINES SECTION 
3543 010564 004737 017142 EXSUB:: JSR PC ,FIRSTU ;SET UP FOR FIRST UNIT. 
3244 010570 50026$ : 
3245S 010570 026527 002604 177777 CMP DEVTBLCRS), END ;WHILE THERE ARE MORE DEVICES: 
3246 010576 001465 BEG 50027 $ 
3247 010600 032737 000400 003420 BIT @M0d .CO, CMOWRD ;IF CMD IS REVERSE THEN: 
3248 010606 001421 BEQ 50030 
aSep 010610 032765 000002 003502 BIT #X0 .BOT ,EOTFLGC(RS) ;IF NOT AT BOT 
010616 001014 BNE 
3251 010620 032765 000001 003502 BIT @X0.EOT ,EOTFLGCRS) ;BUT IF AT EOT 
3328 010626 001406 BEQ 50032 $ . 
3253 010630 105737 003524 TSTB ALLEOT ;AND ALL OTHERS AT EOT 
3254 010634 001402 BEQ 50033% 
3255 010636 004737 012114 JSR PC ,EXCUTE ; THEN EXECUTE REV CMD 
3256 ;IF NOT ALL AT EOT, FREEZE UNIT(S) AT EOT 
3257 010642 50033$: 
3258 010642 000402 BR 50034$ :;IF NOT AT BOT AND 
3259 010644 50032$: 
eset 010644 004737 012114 JSR PC ,EXCUTE sNOT AT EOT, EXEC REV CMD 
3262 010650 50034$: 
3263 
3264 010650 50031$: 
3265 010650 000435 BR 50035$ sELSE IF CMD IS NOT REVERSE: 
3266 010652 50030$ 
3267 010652 023727 003426 000002 CMP CMOLG , #2 
3268 010660 001011 BNE 50036 $ 
3269 010662 032765 000002 003502 BIT #xO0.BOT ,EOTFLGCRS) 
3270 010670 001405 BEQ 50036$% 
3271 sCLEAR BAD SPOT COUNTS WHEN WRITING FROM BOT 
3272 010672 016537 002616 003512 MOV BTADORCRS) ,BTPT ;LET BTPT := BTADDRCRS) 
3374 010700 005077 172606 CLR aBTPT ;LET @BTPT := 00 
3275 010704 50036$: 
3276 010704 032765 000001 003502 BIT @x0 .EOT ,EOTFLGCRS) 
3277 010712 001404 BEG 50037$% 
3278 010714 032737 000001 003420 BIT @CMD .CO, CMOWRD 
3279 010722 001003 BNE 50040$ 
3280 010724 50037$: 
3281 ;IF NOT AT EOT OR NOT A MOTION CMD THEN: 
ssee 010724 004737 012114 JSR PC ,EXCUTE sISSUE CMD TO TSOS 
3264 010730 000405 BR 50041% 
3285 010732 50040$: 
3286 010732 105737 003524 TSTB ALLEOT ;IFB ALLEOT NE #0 THEN 
3287 010736 001402 BEQ 50042 $ 
coe 010740 004737 012114 JSR PC ,EXCUTE 
3290 010744 50042$ 
3291 
3292 010744 500414 
3293 
3294 010744 S0035$: 
3295 010744 004737 017210 JSR PC ,NEXTU sFIND NEXT UNIT IN TEST CYCLE. 
3599 010750 000707 BR 50026 $ 
3298 010752 50027 $ 


E6 


3339 
3 


3346 
3349 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


1 
011072 
011074 


011074 
011100 
011102 
011102 
011106 
011110 
011114 
011114 


011114 
011114 


011122 
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105737 


003517 
003517 


017142 


012424 


017210 


177777 
003420 
003502 
003502 


003502 
003420 


50043$: 


50055: 


50057$: 
500565: 
50053$: 


50045$: 


TSTB 
BEQ 


2% 


RTS 


RPTELG IF REPORT HAS BEEN REQUESTED THEN: 
RPTFLE CLR THE FLAG 

;PRINT THE PERFORMANCE REPORT. 

TRAP CSDRPT 
PC .FIRSTU ;SET UP FOR FIRST UNIT. 
DEVTBLCRS),0END  :WMILE THERE ARE MORE DEVICES: 
@MOD . CO, CMDWRD ;IF CMD IS REVERSE THEN: 
@X0.B0T,EOTFLG(RS) ;IF NOT AT BOT 
8X0. EOT ,EOTFLG(RS) ;BUT IF AT EOT 
50050$ 
ALLEOT ;AND ALL OTHERS AT EOT 
50051$ 
PC, GOWAIT ;THEN WAIT FOR CMD END 
;IF NOT ALL AT EOT, DO NOT WAIT 
;NOT AT BOT. AND NOT AT EOT 

50052$ 
PC,GOWAIT ;WAIT FOR INT,CHECK STAT 
50053$ ELSE IF CMD IS FORWARD: 
x0. E0T ,EOTFLG(RS) 
500544 
@CMD . CO, CMDWRD 
50055$ 

;IF NOT AT EOT OR NOT A MOTION CMD THEN: 
PC ,GOWAIT ;WAIT FOR INT,CHECK STATUS. 
50056$ 
ALLEOT ;IFB ALLEOT NE #0 THEN 
50057 $ 
PC ,GOWAIT 
PC ,NEXTU ;FIND NEXT UNIT IN TEST CYCLE. 
50044$ 
PC RETURN, 


SEQ 0069 


F6 
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SEQ 0070 
GLOBAL SUBROUTINES SECTION 


3355 ; THIS SUBROUTINE STORES THE ASCII FOR THE CURRENT COMMAND AND PREVIOUS 

3356 : COMMAND IN THE STANDARD ERROR MESSAGE. ON ENTRY LOCATION CMDWRD 

3357 ; CONTAINS CURRENT CMD AND LOCATION PCMDWD CONTAINS PREVIOUS CMD. 

3356 : INPUTS: 

3359 ; S: 

3360 ; REGISTERS: R3, R4 

3362 ' 

3363 011124 013704 003420 CMDAC:: MOV CMDWRD.R4;LET R4 := CMDWRD ;R4 = CMD BINARY. 

3364 011130 004737 011176 JSR PC, GCMDA ;GET CMD ASCiI. 

3365 011134 112337 006440 MOVB (R3)-,STAERI-2 sMOVE CMD ASCII 

3366 011140 112337 006441 MOVE (R3)+.STAERI+3 

3367 011144 111337 006442 MOVB  (R3),STAERI«4 INTO MSG. 

3368 011150 013704 00 MOV PCMOWD , R4 ;R4 = PREVIOUS CMD BINARY. 

3369 011154 737 011176 JSR PC ;GET CMD ASCII. 

3370 011160 112337 0065 MOVB (R3)-, STAERT+24 ;MOVE CMD ASCII 

3371 011164 112337 006555 MOVE (R3)+,STAER7-25 

3372 011170 111337 0065 Move (R3), STAERT +26 ;INTO MSG. 

3375 011174 000207 RTS PC ;RETURN. GO EXECUTE NEXT FUNCTION. 

33 

3376 ; INE TO FIND THE ASCII EQUIVILENT OF THE COMMAND IN R4. 

3377 ; ADDRESS OF ASCII ays! WORD IS RETURNED IN R3. 

3378 ; INPUTS: : SENT COMMAND WORD. 

3379 ; OUTPUTS: RS = ADDRESS OF PRESENT COMMAND ASCII. 

3380 ; REGISTERS: 

sees ; S: 

3383 011176 005003 GCMDA:: CLR R3;LET R3 := 60 ;INIT CMD TBL POINTER. 

3384 011200 50060$ : 

3385 011200 026304 003752 CMP CMDTBL(R3),R4 ;UNTIL CURRENT CMD IS FOUND: 
011204 001403 BEQ 

3387 011206 062703 000002 ADD $2,R3 ;LET RB := RB + 02 ;SEARCH CMD TABLE. 

3388 011212 000772 BR 50060$ 

3389 011214 500614: 

3390 011214 010304 MOV R3,.R4 ;LET R4 := RB 

3391 011216 006203 ASR R3 ;POINT TO ASCII FOR THAT COMMAND 

3392 011220 000240 NOP 

3393 011222 060403 ADD R4,R3 

3394 011224 062703 004040 ADD @CMDASC ,R3 

3395 011230 000207 RTS PC ; RETURN. 

3397 ; THIS SUBROUTINE LOADS THE TSOS COMMAND PACKET FROM ONE 

3398 ; ENTRY IN THE SEQUENCE TABLE. 

3399 ; INPUTS: 

3400 3 S: 

3401 ; REGISTERS: R2, R3 

soe F : AT. 

3404 011232 005037 003426 SETUP:: CLR CMDLG ;CLR CMD LOGGING CODE(DISABLES LOGGING) 

3405 011236 012137 002330 MOV (R1)+,CMDPKT ;LOAD THE 

3406 011242 011137 3 (R1),CMDPKT-CP.CNT ;LOAD THE BYTE/RECORD/FILE COUNT. 

3407 011246 011137 003416 MOV (R1),BRECNT sSAVE BREF FOR THIS COMMAND. 

3408 011252 013702 002330 MOV IGET 

3409 011256 042702 177740 BIC ONCMD .C,R2 ;CLR ALL BUT CMD BITS. 

3410 011262 01020 MOV R2,R3 ‘SAVE IT TWICE. 

3411 011264 162703 000010 SUB @CMD.C3,R3 sPOSITION COMMAND? 


G6 


GLOBAL AREAS 


N 
© 
wr 
~ 
vi 
ra 


3468 011556 
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001404 
012737 
000403 
012737 


105037 


013737 
013737 


002332 
002330 


003420 
002330 


100011 


002332 
003426 
002330 


003516 
002330 


003424 
003420 


2s: 


50062 $: 


50063: 


4$: 


3$: 


S$: 


50065: 


50066 $ : 


gagapeanaagageces 


g 3 cohsmss =Sae'on 


@SCHBK , CMDPKT+CP . ADL 
@SCHCNT , CMDPKT+CP. CNT 


OCD .C1!CMD.C2,R3 


T+CP. ADL 


SEQ 0071 
;BR IF NOT. 
;MOVE BPCR IN 2ND PKT WORD FOR POSITION CMD. 
;IF CMD IS A WRITE TAPE MARK THEN: 
;W™M LOGGING CODE IS 2. 


* 

IF SO, LOAD THE BUFFER ADDR. 
IF CMO IS A READ REV THEN: 
;LOGGING CODE IS 4 

;ELSE - IF CMD IS A READ FWD: 


sLOGGING CODE IS 6. 


sA SET CHARACTERISTICS CMD? 

;BR IF NOT 

;SET UP ADR LO FOR SET CHAR. 

;SET BUFFER EXTENT 

eB LORE GORALTERISTEC CODE IN SCH BLOCK. 


; CONTINUE. 
31S IT 
te a: ihe (DIA) CMD? 


sLOAD =< “ty ADR LOW. 
sPOINT TO N CNUMBER OF TIMES TO EXECUTE THIS INS 
SAVE OF OPERATIONS 


sCLEAR OPERATION COUNTER. 
iSAVE_ PATTERN CODE FOR CURRENT CMD. 


‘A WRITE? 

;8R IF NOT. 

;LOAD WRITE BUFFER LO ORDER. 

3GO we TE THE WRITE PATTERN. 
SWRIT E LOGGING CODE IS 2. 

3; IF DATA VERIFICATION IS REQUIRED: 
;SET VERIFY 1 AG. 


sCLEAR VERIFY BITCNOT USED BY HARDWARE). 
sIF DATA VERIFICATION IS NOT REQUIRED: 


;CLR VERIFY FLAG. 


sSAVE PREVIOUS CMD WORD. 
sSAVE PRESENT CMD WORD. 


H6 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


3469 011564 
3470 011570 
011572 


7S O11 
: 011614 


011616 
011622 
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013703 
006303 


001002 
012705 
000764 
000207 


003520 
010000 


004000 
002330 


002330 


002330 
003422 


Page 26-16 
TSTB SWBFLG 
BEGQ 50067 $ 
BIS @SWB.C,CMDPKT 
50067$: 
BIC _ SOBRE .C,CMDPKT 
MOV CMOPKT , CMDSAV 
RTS PC 
3 THIS SUBROUTINE 
o 
; 
: OUTPUTS: 
$ REGISTERS: Oz 
; CALLS: PATRO 
GENPAT : : MOV PATERN,R3 
ASL RZ 
MOV BRFCNT ,R4 
INC 4 
BIC #1,R4 
SUB 02.R4 
MOV DATAWT,R2 
ADD 2 ,R2 
JSR PC. APATTBL(R3) 
RTS PC 


PATTBL: 


PATRO:: 


1$: 


50070$: 


2$: 


;TSOS WRITE PATTERN LOOKUP TABLE. 


SEQ 0072 


;IF SWAP BYTES IS ENABLED: 
;SET SWAP BIT IN COMMAND. 
;CLR BRF BIT CINTERNAL ONLY 


). 
; SAVE 1ST WORD OF COMMAND PACKET. 
;RETURN. 


HI SETS UP AND CALLS THE APPROPRIATE SUBROUTINE TO GENERATE 
iy 2 _ PATTERN FOR THE WRITE AND WRITE/VERIFY COMMANDS. 


» R4. 

- PATR7 
;SETUP PATTERN ROUTINE POINTER 
;SET LENGTH OF WRITE BFR 
sROUNDED UP TO NEXT WORD 
;WITH FIRST WORD RESERVED 
sFOR RECORD COUNT 


;GO GENERATE THE APPROPRIATE PATTERN. 
;RETURN TO SETUP SUBROUTINE. 


USED TO JSR TO THE 


sCORRECT DATA PATTERN GENERATING ROUTINE 


PATRO 
PATR1 
PATR2 
PATRS 
PATR4 
PATRS 
PATR6 
PATR7 
PATRS 


s INCREMENTING PATTERN. 


MOV 0400,R3;LET R3 
SUB $2.R4;LET R4 
BMI 24 

MOV (R2)- 

ADD 21602 R3 

CMP 

BNE 

MOV $400,R3 

BR 1$ 

RTS PC 


;ALL ONE'S PATTERN. 


0 - 377. 


:= #400 
:* R4 - $2 -_ WORD COUNT. 


;IF PATTERN HAS WRAPPED AROUND THEN: 
;INIT THE PATTERN AGAIN. 


;D0 IT AGAIN. 
;RETURN. 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 
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012703 
162704 
100402 
010322 
000773 


000207 


005003 
004737 
000207 


012703 
162704 
00404 


012703 
004737 


012703 
004737 
000207 


012703 
162704 
100402 
010322 
yoo LA 


162704 
,00s44 
0637 

063737 
013722 
000764 
000207 


177777 
000002 


011744 


000401 
000002 


177376 
011774 


125125 
011744 


177400 
000002 


003432 
003434 


PATR1:: MOV -1,R3 ;ALL ONES PATTERN 
ZROPAT: SUB e2.Aa :DECREMENT BYTE COUNT. 
MOV R3,(R2)- VIF Not LOAD NEXT BYTE WITH PATTERN. 
BR AT 300 IT AGAIN. 
1s: RTS PC ; RETURN. 
;ALL ZEROES PATTERN. 
PATR2:: CLR R3 ;CLR PATTERN — 
JSR PC, ZROPAT ;GO GENERATE IT 
RTS PC ; RETURN. 
;ONE BIT WALKING FROM R TO L IN A FIELD OF ZEROES. 
PATR3:: MOV $401.23 INIT PATTERN REGISTER. 
WLKZRO: SUB $2,R4;LET R4 :* R4 - 02 ;DECREMENT WORD COUNT. 
BMI ;BR IF 
MOV R3,(R2)- ;LOAD DATA. 
ASL R3 ; SHIFT PATTERN. 
ADC R3 ;ADD CARRY BACK INTO PATTERN. 
BR WLKZRO ;00 IT AGAIN. 
1$: RTS PC : . 
;ZERO BIT WALKING FROM R TO L IN A FIELD OF 1’S. 
PATR4:: MOV $177376,R3 ;INIT PATTERN REGISTER. 
JSR PC, WLKZRO ;GO GENERATE ;IT. 
RTS PC ;RETURN. 
;ALTERNATING ONE AND ZERO BITS WITH ALTERNATE BYTES 
; COMPLEMENTED . 
PATRS:: MOV €125125,R3 ;INIT PATTERN REGISTER. 
JSR PC, ZROPAT ;GO GENERATE IT. 
RTS PC ;RETURN 
;ALTERNATING BYTES OF 000 AND 377. 
PATR6:: MOV €177400,R3 ;INIT PATTERN REGISTER. 
1$: SUB 2, ; WORD COUNT. 
BMI 23 ;BR IF DONE 
MOV R3,(R2)- sLOAD DATA. 
BR 1$ ;00 IT AGAIN 
2%: RTS ;RETURN. 
;RANDOM PATTERN GENERATOR 
PATR7:: SUB $¢ R4 ;DECREMENT WORD COUNT 
BMI Git ;8R IF DONE. 
ADD RANS ,RANB 
ADD RANB , RANS ;GET NEW @. 
MOV RANS , (R2)- ;SAVE @. 
BR PATR? ; CONTINUE . 
GIT: RTS PC ; RETURN 








SEQ 0073 


JO 


3583 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


012112 


012114 
012122 
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013705 
016537 


016503 
005002 


177777 


003436 
003436 


012774 


017240 


00 
017142 
002604 


012740 
017210 


003452 
002544 


002212 


003436 


002524 
140004 


177777 


002474 


500718: 


50072$: 


50074$: 


50077$: 


NO PATTERN GENERATION. 
:: RTS 


SEQ 0074 


;RETURN. 


THIS SUBROUTINE INITIATES TSOS COMMAND EXECUTION 
TSOS RESPONSE . 


PC 
AND CHECKS FOR 
INPUTS 
OUTPUTS: 
REGISTERS: 
CALLS: 
MOV @-1,TIME1 
REPEAT 
b€C TIME) 
TST TIME1 
BNE 50072$ 
JSR PC , MOVMSG 
ERRDF 2,NSSRM,STAERM 
JSR PC, DROPU 
BR EXCRTN 
BIT 
BEQ 
CMP CMDURD, 
BNE 50073$ 
MOV RS, RSSAVE 
JSR PC‘ FIRSTU 
CMP DEVTBL(RS), OEND 
BEQ 50075$ 
JSR PC ,WSSR 
JSR PC’ NEXTU 
BR 50074$ 
MOV RSSAVE RS 
MOV 
MOV MSGPKA(RS),.R3 
CLR R2 
CMP R2, OMSGCNT 
BEQ 50077 
MOV @-1,(R3)- 
ADD @2,R2 
BR 50076$ 
TSTB = DINT 
BNE i$ 


#TS.SSR,aTSSRCRS) 
50071% 


MSGPKACRS ), SCHBK 


R2, R3. 
DROPU, MOVMSG, FIRSTU, NEXTU, WSSR. 


oi 2 TIMEOUT COUNTER. 
; UPDATE TIMEOUT COUNTER. 
3IF TIMED OUT: 


sMOVE CURRENT PACKET MSG. 
sREPORT TSOS NOT READY 


TRAP CSEROF 
-WORD 2 

-WORD NSSRM 
-WORD STAERM 


;DROP THE UNIT. 
;RETURN. 

;WAIT UNTIL DEVICE IS READY. 

;1F WE ARE DOING A SET CHAR CMD THEN: 


;SAVE CURRENT DEVICE POINTER. 
SFIND FIRST UNIT. 


sWHILE DEVTBLCRS) NE SEND DO 


;WAIT FOR UNIT rataete OR TIME OUT, 
;F IND NEXT UNIT 


esto CURRENT DEVICE POINTER. 
;SET UP ADR OF MSG PKT IN SCH BLOCK. 


;ADR OF THIS UNIT'S MSG PACKET. 
;CLR COUNTER. 
;WHILE THERE ARE MORE LOCATIONS: 


;INIT THE MSG PACKET WITH ALL 1'S 
sUPDATE COUNTER. 


;ARE INTERRUPTS DISABLED. 
;BR IF YES. 


K6 
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012775 


012737 
104422 
023727 
001014 
012727 
000000 
013727 
000000 


005367 
001375 


003472 


012774 


017240 


177777 


003420 


000012 
002116 
177772 


000001 
003454 


002330 


171022 


002514 
002524 


003436 


102010 


50100$: 


1$: 


50101$: 


50102$: 
EXCRTN: 


50103$: 


RTS 


HAs pata #1 
50100$ 
1s fore. 


PC ,DROPU 
EXCRTN 


INTFLG(RS) 
OIE .C, CMDPKT 
ERAREC; IFB ERRREC EQ 90 


101 
RECCNT(RS) 
RECCNT(RS),@DATAWT 


SCMDPKT , ATSDBCRS ) 
@TS.SSR,aTSSRCRS ) 
50102$ 


PC, MOVMSG 
3, TOERM, STAERM 


PC ,DROPU 


PC 


SEQ@ 0075 


sIF MORE THAN ONE INTERRUPT HAS OCCURED: 
THE CURRENT STATUS REG FOR PRINT 


REEZE 
\REPORT 160 PANY INTERRUPTS. 


TRAP CSEROF 
-WORD 15 
-WORD TOOMM 
-WORD STAERM 


;DROP_ THE UNIT 
;RETURN - UNIT HAS BEEN DROPPED. 


;CLR INTERRUPT “’ FOR THIS DEV. 

re aU INT ENABLE BIT 

HEN ;IF NOT RETRYING 

sLET RECCNTCRS) := RECCNTC(RS) + #1 

; THEN UPDATE REC COUNT TO WRITE IT ON TAPE 


;LOAD TSOB WITH CMDPKT ADDRESS 
‘THIS INITIATES COMMAND EXECUTION. 
;IF READY DID NOT DROP THEN: 


sMOVE CURRENT MESSAGE PACKET TO COMMON. 
;REPORT NO TSOS RESPONSE. 


TRAP CSERDF 
-WORD 35 
-WORD TOERM 
-WORD STAERM 


;DROP THE UNIT 


;RETURN. 


SUBROUTINE WAITS FOR ne TSOS INERRUPT OR DONE BIT TO SET AND ALLOWS THE 


THIS 
OPERATOR TO TRANSFER CONROL 
UPON APPEARANCE THE 


TO ~~ SUPERVISOR. 


CK TSSR FOR graves ERRORS, 
SASARY 


T OR DONE, CHE 
LOG BYTES AND ERRORS AND PERFORM ERROR RECOVERY IF NES 


OUTPUTS: 
REGISTERS: 
CALLS: 


: MOV 
oe" 


CMP 
BNE 
DELAY 


CMDWRD , 
50104$ 


10. 


DROPU, MOVMSG, RECUD, CHKERR, 
0-1, TIME} 


LOG, CLRERR. 

sINIT TIME OUT COUNTER. 

~*~ UNTIL INTERRUPT OCCURES: 

sGO TO THE SUPER TO LOY TTY INPUT. 
Le a C$BRK 

sIF COMMAND WAS REWIND T 


;WAIT EXTRA MSECS EACH LOOP. 
MOV #10. (PC )- 
. WORD 


. WORD 
DEC -6(PC) 
BNE .-4 


L6 
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GLOBAL SUBROUTINES SECTION 


0 
3678 012474 
3679 012474 
2502 


371 2700 
3720 012704 


005367 
001367 


023727 
001404 
023727 
001014 
012727 
000000 
013727 
000000 


177756 


003420 
003420 


000014 
002116 
177772 
177756 


105010 
105410 


50104$;: 


50105$: 


501068: 


50107$: 


50110$: 


501118: 


50112$: 


DELAY 


J 
TSTB 
BNE 


SEQ 0076 

DEC -22(PC) 
BNE .-20 

CMOURD . @SF :IF CMOWRD EQ @SFF OR CMDWRD EQ SFR THEN 

CMOWRD , @SF 

50106$ 

12. ;ADD DELAY FOR SPACE TAPE MARK COMMANDS 
MOV @12..(PC)- 
WORD 0 
MOV L$DLY.(PC)- 
° 
bEC “6(PC) 
BNE 
DEC *30PC) 
BNE ex 

DINT ;IF INTERRUPTS ARE ENABLED. 

INTFLG(RS),.R2 ;FETCH INTERRUPT OCCURRED FLAG. 

50110$ 

eTS.SSR.RS ;SET UP A MASK FOR THE DONE BIT. 

@TSSR(RS),R2 ;FETCH DONE BIT. 

R3,R2 

TIME1 ;UPDATE TIMEOUT COUNTER. 

R2 ;REPEAT UNTIL INTERRUPT OR READY OCCURES. 

S0111$ 

TIME1 

50103$ 

TIME1 ;IF TIME OUT HAS OCCURRED: 

50112$ 

RECCNT(RS), @DATAWT 

@DATAWT 

PC , MOVMSG ;MOVE CURRENT MSG PACKET TO COMMON AREA. 

4,NOINTM, STAERM ;REPORT NO INTERRUPT. 
TRAP  CSERDF 
WORD 4 
“WORD NOINTM 
“WORD  STAERM 

PC, DROPU DROP THE UNIT. 

SENDERF .R3 LET RS i= 

PC, CLRERR ;CLEAR ALL ERROR FLAGS 

50113% 

, ;MOVE CURRENT MSG. PACKET TO COMMON AREA. 
PC. RECUD ‘UPDATE THE RECORD COUNT. 
CHKERR ;CHECK FOR STATUS ERRORS. 
URTYEG IFB WRTYFG EQ 00 THEN 


M6 
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3721 012706 004737 01 JSR PC,LOG LOG BYTES AND ERRORS. 
3722 012712 012703 003472 MOV RF RS LET R3 SENDE 
3728 012716 004737 012724 JSR PC, CLRERR CLEAR ALL ERROR FLAGS 
3725 012722 501143: 
3726 
3727 012722 50113$: | 
3726 012722 000207 RTS PC ;RETURN IF DONE. 
3730 ; SUBROUTINE TO CLEAR FLAGS. 
3731 ; INPUTS: R3 = LWA TO BE CLEARED « 2. 
3732 ; OUTPUTS: 
3733 ; REGISTERS: R2 
0 : CALLS: 
3736 012724 012702 003460 CLRERR:: MOV  #@BGNFLG,R2 ;LET R2 := SBGNFLG 
3737 012730 50115$: ;REPE 
3738 012730 005022 écR (R2)- LET (R2)+ := 00 
3739 012732 020203 CMP R2,R3 ;UNTIL R2 EQ R3 
3740 012734 001375 BNE 50115$ 
3741 012736 000207 RTS PC 
a 
3744 ; SUBROUTINE TO WAIT UNTIL CURRENT UNIT IS READY OR UNTIL TIME OUT. 
3745 ; INPUTS: 
3746 ; OUTPUTS: 
3747 ; REGISTERS: 
3748 ; CALLS: 
3749 
3759 012740 WSSR:: 
3751 012740 012737 177777 003436 MOV @-1, TIME ; INIT TIMEOUT COUNTER. 
z 12746 50116$: ;REPEAT UNTIL DEV READY OR TIMEOUT: 
3753 012746 BREAK ‘BREAK TO THE SUPERVISOR. 
012746 104422 CSBRK 
3754 012750 005337 003436 DEC TIME 1 zUPD UPDATE TIMEOUT COUNTER. 
3755 012754 032775 000200 002524 BIT @TS.SSR,@TSSR(RS) ;UNTIL #1S.SSR SETIN aTSSR(RS) OR TIME] EQ #0 
3756 012762 001003 BNE 50117$ 
3757 012764 005737 003436 TST TIME1 
3758 012770 001366 BNE 50116$ 
3759 012772 S0117$: 
3760 012772 000207 RTS PC ; RETURN. 
3768 
3764 ; SUBROUTINE TO MOVE THE CURRENT MESSAGE PACKET TO THE COMMON AREA AND 
3765 ; TO UPDATE THE CURRENT TERMINATION CLASS CODE 
3766 ; INPUTS: 
3767 ; OUTPUTS: 
3768 ; REGISTERS: R2, R3. 
Te : CALLS: 
3771 012774 017537 003454 MOVMSG: : MOV BTSSRCRS), TSSREG ;FREEZE THE STATUS REG CONTENTS 
3772 013002 013702 003454 MOV TSSREG,R2 ;EXTRACT THE TERMINATION CLASS CODE, 
773 013006 042702 177761 BIC @TSC.TEC.R2 
3774 013012 010237 003450 MOV Tcé ;AND SAVE IT 
3775 013016 006237 003450 ASR | c 
3776 013022 016503 002544 MOV MSGPKACRS),R3 ;ADR OF THIS DEVICE’S MSG. 


N6 
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SEQ 0078 





3777 013026 005002 CLR R2 ;CLR COUNTER. 

3778 013030 501203: 

3779 013030 020227 000020 CMP R2, @MSGCNT ;WHILE THERE ARE MORE LOCATIONS: 
3780 013034 001405 BEQ 501213 

3781 013036 012362 002354 MOV (R3)+,MSGPKT(R2) ;MOVE MSG TO COMMON AREA. 
3782 013042 062702 000002 ADD $2,R2 ;UPDATE COUNTER. 

3784 013046 000770 BR 50120$ 

3785 013050 501215: 

3786 013050 013737 002362 003502 MOV MSGPKT+MS.XSO,EOTFLG ;MOVE XSTATO TO EOT FLAG. 
3787 013056 000207 RTS PC | 

3789 ; SUBROUTINE TO ADJUST THE RECORD COUNT. 

3790 ; INPUTS: 

379) ; OUTPUTS: 

3792 ; REGISTERS: 

Leg, ; CALLS: 

3795 013060 105737 003465 RECUD:: TSTB RECLOG ;IF RECORD HAS NOT BEEN LOGGED: 

3796 013064 001070 BNE 50122 

3797 013066 005365 003376 DEC RECCNT(RS) LET RECCNT(RS) := RECCNT(RS) - #1 
3798 013072 032737 000001 003450 BIT @B1TO,CTCC ;IF TAPE MOVED 

3799 013100 001057 BNE 50123 

3800 013102 032737 100000 002366 BIT 8X2. OPM, MSGPKT+MS . XS2 

3801 013110 001453 BEQ 50123$ 

3802 013112 105237 003465 INCB  RECLOG ;SET RECORD LOGGED. 

3803 013116 023727 003420 102010 CMP CMDWRD , @RWD ;IF THIS IS A REWIND CMD: 
3804 013124 001003 BNE 50124$ 

3805 013126 005065 003376 CLR RECCNT(RS) ;CLEAR RECORD COUNT, 

3807 013132 000442 BR 50125 

3808 013134 501243: 

3809 013134 032737 004000 003420 BIT @BRF .C, CMDWRD ;IF BRF USED, UPDATE RECORD COUNT. 
3810 013142 001436 BEQ 50126$ 

3811 013144 032737 000400 003420 BIT @MOD . CO, CMDWRD ;IF A FORWARD CMD: 

3812 013152 001007 BNE 50127$ 

3813 013154 032737 000400 003424 BIT @MOD .CO,PCMDWD ;IF PREV CMD WAS A FWD ALSO: 
3814 013162 001002 BNE 50130 

3815 013164 005265 003376 INC RECCNT(RS) sINCREMENT RECORD COUNT. 
3817 013170 501304: 

3818 ;IF REVERSE CMD: 

3819 013170 000423 BR 50131$ 

3820 013172 50127$: 

3821 013172 032737 000400 003424 BIT @MOD .CO,PCMDWD :IF PREVIOUS CMD WAS A REV ALSO: 
3822 013200 001417 BEQ 501 

3823 013202 032765 000002 003502 BIT x0. BOT ,EOTFLG(RS) ;WHEN NOT AT BOT THEN 

3824 013210 001013 BNE 501334 

3825 013212 105737 003471 / STB ;CHECK THE ERROR RETRY INDICATOR 
3826 013216 001406 BEQ 2$ NOW IN 
3827 013220 105737 003516 TSTB VFYFLG 

3828 013224 001403 BEQ 23 

3829 013226 105737 003465 TSTB RECLOG 

3830 013232 001002 BNE 104 

3831 013234 005365 003376 2¢: DEC RECCNT(RS) 

3832 013240 103: 


B/ 
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013240 
013240 


013240 
013240 
013240 


3846 013240 


013246 
013246 
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016577 


000207 


032737 
001441 
023727 
001405 


032737 
0010046 
032737 
001412 
032737 
001003 
012702 
000402 


012702 


000402 
013702 


003376 170140 


003450 


003454 
000002 


003454 
003454 


002366 


50133$: 
50132$: 
501318: 


50126$: 
50125$: 
50123$: 


S50122$: 


CHKERR: : 


50136: 


50135$: 


50137$: 


50141$: 


501423: 


50140$: 


MOV 


RTS 


RECCNTCRS), @DATAWT 


PC 


SEQ 0079 


sLET @DATAWT := RECCNTCRS) 


;RETURN. 


THIS IS THE ERROR CHECK SUBROUTINE. AFTER INTERRUPT THIS 
SUBROUTINE IS CALLED TO CHECK THE TS05 STATUS. 


IF SPECIAL 
IF THE RFC IS NON 
THEN AN ERROR RFC IS REPORTED, 
INPUTS: 


COND IS SET 


OUTPUTS: 
REGISTERS: R2, R4. 
CALLS: TCCO-TCC7. 
BIT TS.SC, TSSREG 
BEQ 501344 
CMP CTCC, 92 
BEQ 50135$ 
TSTB  ~— ERRREC 
BNE 50136$ 
INC SCCNTC(RS) 
BIT #TS.NXM, TSSREG 
BNE 501374 
BIT $TS.UPE, TSSREG 
BEQ 50140$ 
BIT @X2. OPM, MSGPKT «MS. XS2 
BNE 501414 
MOV 25,R2 
BR 50142 
Vv $4,R2 
BR 50143$ 
MOV CTCC,R2 


A COMMAND REQUIRING A 


TCC HANDLING SUBROUTINE IS ENTERED. 


;IF SPECIAL COND STATUS IS SET THEN: 
sIF TCC IS NOT 2 THEN: 


;IF NOT IN ERROR RECOVERY: 
sINC SC COUNTER. 


;WHEN NON-EXISTANT MEMO 


;AND TAPE NOT MOVED 
sSET TCCS INDEX 


;TAPE MOVED, SET TCC4 INDEX 


sSET DETECTED TCC INDEX 


C/ 
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105737 
001403 
013737 


000207 


013454 


003420 


003467 
003422 002330 


50143$: 


50134$: 


501473: 


* Ts78 
BEQ 


MOV 


RTS 


SEQ 0080 
Re ;CURRENT TCC X 2. 
PC ,aTCCRACR2) ;GO TO THE TCC HANDLING SUBROUTINE. 
50144$ 
ORF .C. CHORD IF BRF IS USED IN THIS CMD THEN: 
MSGPKT «MS . RFC SIF THERE IS AN RFC THEN: 
RA ;IFB RANDOM EQ #0 ORB VFYFLG NE #0 THEN 
50147$ 
VF YFLG 
50150$ 
IF NOT IN RANDOM OR IF CMD IS WTV: 
IRE LIF RFE ERROR REPORTS ARE ALL OMED: 
HROCNT(RS) TE HARD ERROR COUNT 
13. RFCERM,STAERM IREPORT RFC ERROR 
TRAP — CSERHRD 
‘WORD 13 
“WORD  RFCERM 
"WORD  STAERM 
RWERR IF A READ/WRITE ERROR HAS OCCURRED THEN: 
CMDSAV , CMDPKT ;RESTORE CMD PACKET AFTER ERROR RECOV. 
PC ;RETURN. 


ADDRESSES OF TCC HANDLING ROUTINES FOR TERMINATION CLASS CODES 0 - 7. 


SUBROUTI 
CONDITION ERROR. 
INPUTS: 


NE TO HANDLE TERMINATION CLASS CODE 0, UNDEFINED SPECIAL 


OUTPUTS: 
REGISTERS: 


D7 
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SEQ 0081 
GLOBAL SUBROUTINES SECTION 
ees : CALLS: 

3946 013474 005265 003356 TCCO:: INC HRDCNT(RS) ;UPDATE HARD ERROR COUNT. 

3947 013500 ERRHRD 5S,SCERM,STAERM ;REPORT SPECIAL CONDITION ERROR. 
013500 104456 C$ERHRD 
013502 000005 "oro 
013504 004475 “WORD  SCERM 
013506 006120 "WORD  STAERM 

3948 013510 000207 RTS PC ;RETURN, 

3949 

395) :; SUBROUTINE TO HANDLE TERMINATION CLASS CODE 1. ATTENTION CONDITION. 

3952 ; THIS TCC INDICATES THAT THE DRIVE HAS UNDERGONE A STATUS CHANGE 

3953 ; SUCH AS GOING OFFLINE OR COMING ONLINE. 

; 
3956 REGISTERS R2.Ré 
i 8 

333 2$ ; CALLS: DROPU 

3959 013512 TCC1:: ERRDF 6,ATTNM,STAERM ;REPORT ATTENTION-UNIT OFF LINE. 
013512 104455 TRAP  CSERDF 
013514 000006 ‘WORD 6 
013516 004603 “WORD ATTNM 
013520 006120 "WORD STAERM 

3960 013522 004737 017240 USR PC, DROPU ;DROP THE UNIT. 

3961 013526 000207 RTS PC ‘RETURN. 

3008 , SUBROUTINE TO HANDLE TERMINATION CLASS CODE 2, TAPE STATUS ALERT. 

3964 ; A STATUS CONDITION HAS BEEN ENCOUNTERED THAT MAY HAVE SIGNIFICANCE 

3965 . TO THE PROGRAM. BITS OF INTEREST INCLUDE TMK, RLS, LET, RLL., BOT, EOT. 

3966 INPUTS: 

3967 ; OUTPUTS: 

3968 ; REGISTERS: 

Fas 3-4 ; CALLS: 

3971 013530 032737 000002 002362 TCC2:: BIT @X0.BOT ,MSGPKT «MS. XSO 

3972 013536 001404 BEQ 50153$ 

3973 013540 105737 003514 TSTB  —s- EXPBOT 

3974 013544 001401 BEQ 50153$ 

3975 ;IF AT BOT AND BOT IS EXPECTED: 

3976 013546 000433 BR TC2RTN ;RETURN-TCC2 CAUSED BY EXPECTED BOT. 

3978 013550 501534: 

3979 013550 032737 170002 002362 BIT @XO.RLS!XO.RLL!XO. TMK!XO.LET!X0. BOT .MSGPKT «MS. xXSO 

3980 SIF @XO.RLS!XO.RLL!X0.TMK!XO.LET!XO'BOT SETIN MSGPKT+-MS.XSO THEN 

3982 013556 001427 BEQ 50154$ 

398 TCC2 CAUSED BY ANYTHING BUT COT; 

3984 013560 105737 003515 TSTB «RANDOM Ife RANDOM 5 ORB VFYFLG NE 60 THEN 

3985 013564 001403 BEQ 50155$ 

3986 013566 105737 003516 STB ss VF'YFLG 

3987 013572 001421 BEQ 50156$ 

3988 013574 501555: 

3989 ,TE NOT IN RANDOM OR IF CHD IS MTV: 

3990 013574 105737 003521 TSTB 0S sSIRE ;IF RFC ERROR REPORTS ARE ALLOWED: 

3991 013600 001016 BNE 50157% 

3992 013602 105737 003471 TSTB  —s«ERRREC ,IF WE ARE IN ERROR RECOVERY THEN: 


E/ 


3993 
3 
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001403 
105237 


000402 
005265 


000207 


003470 


003336 


003356 


017240 


50160$: 


50161$: 


50157$: 
50156$: 
50154$: 
TCORTN: 


TCCS:: 


Page 26-26 


BEQ 50160$ 
INCB UNREC 


50161$% 
INC SCCNTCRS ) 


;SET UNRECOVERABLE FLAG FOR LOG. 
sELSE - IF NOT IN ERROR RECOVERY: 


s INCREMENT THE SPEC COND COUNTER. 


NC HRDCNT(RS) ;UPDATE HARD ERROR COUNT. 

ERRHRD 7,1TSAM,STAERM ;REPORT TAPE STATUS ALERT. 
TRAP CSERHRD 
WORD 7 
“WORD  TSAM 
.WORD STAERM 

RTS PC ;RETURN. 

SUBROUTINE TO HANDLE TERMINATION CLASS CODE 3, FUNCTION REJECT. 

THE SPECIFIED FUNCTION WAS NOT INITIATED. ‘BITS OF INTEREST ARE 

RMR, OFL, VCK, BOT, ILC, WLE, ILA, AND NBA 

INPUTS: 

OUT 

REGISTERS R2,R4 

CALLS: DROPU 

ERRDF 8,FUNRM,STAERM ;REPORT FUNCTION REJECT. 
TRAP CSERDF 
. WORD 
. WORD UNPM 
“WORD STAERM 

JSR PC, DROPU ;DROP THE UNIT 

RTS PC ;RETURN, 


RECOVERABLE ERROR. 
ITION WAS WHEN 
IS TO LOG THE 







IS RECORD BEY 
THE FUNCTION WAS viet bonehead RECOVERY 
AND ISSUE THE APPROPR 


ERROR -REC 
FIRST ONE 


ao 
As 
i 
- 
m 

' 

1 


ECTED: 
DOES DETECT BAD SPOTS ON TAPE. 
THE RECORD IS RECOVERED 

BEEN LOGGED. ON REACHING 20 BAD 
A BAD TAPE OVERFLOW MSG IS PRINTED AND THE 


8 
a8 
~o 
g 
se 
+ 


DROPPED. 

SECOND ALGORITHM ISSUES THE TSOS wire RETRY COMMAND 
O 16 TIMES BEFORE DROPPING THE UNIT OR PROCEEDING 

WITH THE NEXT RECORD ON RECOVERY. 

INPUTS: 

OUTPUTS: 

REGISTERS: R2,R4. 

CALLS: RTLE, EXCUTE, GOWAIT, DROPU, WRTY 


was 


SEQ 0062 


F7 


204% 
4044 
4045 


sipunte 
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013656 
013664 


0135772 
013776 


4066 015776 


014112 


4066 014112 


014116 
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013737 
013737 
yt 


404 
027727 


000002 


002514 


TCC4:; 


50163%: 


50166: 


50167$%: 


50170$: 


pb 26-27 
me SEQ 0083 
CMOLG, 02 ;IF CMOLG EQ #2 ANDG BADTSW NE #0 THEN 
BADTSW 
50162$ 
ERRREC ;IFB ERRREC EQ #0 ANDB ERCVER NE #0 THEN 
50163 
ERCVER 
50163$ 
9,RERM,STAERM ; 
TRAP § C$ERSOFT 
2 4 
"WORD RERM 
“WORD STAERM 
TREC | ; :IFB IREC EQ 90 THEN 
C ;RETRY FLAG FOR EXCUTE SUBR: DON’T UPDATE REC CN 
WRT YER ;REWRITE ERROR FLAG FOR WRTY 
MAT YEG FIRST RETRY ON THIS RECORD: SUBSEQUENT 
;RETRIES WITH TCC4 ERRORS BY-PASS THIS SECTION 
CMDWRD.WTYWRD ;SAVE WRITE COMMAND PACKET 
CMDPKT . WTYCMD 
CRDPKT “CP. CNT .UTYBRE 
RWERR LOG SUBR FLAG: COUNT WRT ERRORS 
WRT YFG RETRY IN PROCRESS FLAG 
AT 
WRTYCT(RS) ;COUNT GLOBAL WRITE RETRIES 
TRYC ;CLEAR @ OF RETRIES PER RECORD 
TCNT ;CLEAR @ OF REPEATS 
PC .URTY ;CALL WRITE RETRY 
WRTYER ;sREPEAT RETRIES ON SAME RECORD 
S0167$ 
TPT. 040. 
1663 
;UNTIL RECOVERED OR 20 BAD SPOTS 
@BTPT .o40 ;WHEN 20 BAD SPOTS LOGGED 
T ;PRINT BAD TAPE OVERFLOW MSG 
MOV @BTMSG2, -( SP) 
ry ao 
TRAP C$PNTB 
ADD $4,SP 
PC ,BORERS ;ERASE BAD RECORD 
RECCNT(RS) 
PC, DROPU ;DROP UNIT 
RECCNT(RS) 
PRUCPK , aTSDBCRS) ;REWIND UNIT 
WRTYFG ;RETRY COMPLETE FLAG 
MISCFG ;00 NOT HALT ON THIS CMD FLG 


G/ 


| POSITION HAS NOT 


CHANGED. 
RROR AND RE-ISSUE THE ORIGINAL C 


RECOVERY PROCEDURE IS TO LOG THE 
OMMAND . 
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4090 014122 013737 015146 003424 MOV WTYWRD , PCMDWD ;RESTORE ORIGINAL WRT CMD AFTER RECOVERY 
014130 50165$ 

4094 014130 000402 S0171$ 

4095 014132 501643: 

4096 014132 105237 003470 INCB —sUNREC ;LET UNREC :B= UNREC + 61 ; 

4098 014136 50171$ 

4099 

4100 014136 000454 50172$ 

4101 014140 50162$: 

4102 014140 004737 014550 JSR PC .RTLE ;CHECK FOR RETRY LIMIT EXCEEDED. 

4103 014144 023727 003426 000002 CMP CMOLG, #2 ;IF READ CMD THEN: 

4104 014152 34 BLE 50173$ 

4105 014154 012702 000020 HOV @RRECL, ;R2=READ RETRY COUNT LIMIT / 2 

4107 014162 023702 003460 CMP RETRYC,.R2 ;IF RETRY COUNT IS MORE THAN HALF LIMIT: 

4108 014166 002403 BLT 174$§ 

4109 014170 052737 020000 002330 BIS C, ;SET OPPOSITE BIT FOR RETRY2. 

4111 014176 50174: 

4112 

4113 014176 501734: 

4114 014176 005737 003460 TST RETRYC ;IF THIS IS THE ORIGINAL ERROR THEN: 

4115 014202 001007 BNE 50175$ 

4116 01 105737 002207 TSTB  ERCVER 

4117 014210 001404 BEQ 50175$ 

4118 014212 ERRSOFT 9,RERM,ST ;REPORT RECOVERABLE ERROR 
014212 104457 TRAP § C$ERSOFT 
014214 000011 WORD 9 
014216 005017 RERM 
014220 006120 “WORD  STAERM 

4119 ;PROVIDED OPERATOR HAS ENABLED THE REPORT 

4120 014222 501753: 

4121 014222 005237 003460 INC RETRYC ;UPDATE RETRY COUNT. 

4122 014226 052737 001000 002330 BIS C1.CMDPKT ;SET RETRY BIT IN CMD PACKET. 

4123 014234 105737 002213 TSTB REC ;IF ERROR RECOVERY ENABLED: 

4124 014240 001011 BNE 50176$ 

4125 014242 105237 003471 INCB C ;SET ERROR RECOVERY FLAG. 

4126 014246 012602 MOV (SP)+,R2 ;POP 2 RTN ADRS FROM STACK. 

4127 014250 012602 MOV (SP)+.R 

4128 014252 004737 012114 JSR PC ,EXCUTE ;GO EXECUTE THE RETRY COMMAND. 

4129 014256 000137 012424 UMP GOWAIT ;GO WAIT FOR INTERRUPT + CHECK STATUS. 

4130 ;ELSE IF ERROR RECOVERY IS NOT ENABLED: 

4131 014262 000402 S0177$ 

4132 014264 50176$ 

4135 014264 105237 003470 INCB -—* UNREC ;SET UNRECOVERABLE ERROR FLAG. 

4135 014270 50177$ 

4136 

4137 014270 50172: 

4138 014270 000207 RTS PC ; RETURN 

4140 ; SUBROUTINE TO HANDLE TERMINATION CLASS CODE 5S, RECOVERABLE ERROR. 

; 


H7 
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014272 


014370 
014376 
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033737 
001016 


014550 
003460 


003460 
0022153 
003471 


003376 
003376 


012114 
012424 


003470 


000010 


003426 


003467 
003470 


167042 


002370 


TCCS:: 


50200$: 


50201$%: 


50202$: 


TCC6: : 


50204$: 


INPUTS: 
OUT S: 
REGISTERS: R2,R4. 
CALLS: RTLE, EXCUTE, GOWAIT, DROPU. 
JSR PC,RTLE ;CHECK FOR RETRY LIMIT EXCEEDED 
TST RETRYC ;IF THIS IS THE ORIGINAL ERROR THEN: 
ERRSOFT 10,RERM,STAERM ;REPORT RECOVERABLE ERROR. 
TRAP § CSERSOFT 
WORD 10 
“WORD 
“WORD  STAERM 
INC RETRYC ;UPDATE RETRY COUNTER. 
TSTB =—s-sS TREC ;IF ERROR RECOVERY IS ENABLED: 
BNE 50201$ 
INCB C ;SET ERROR RECOVERY FLAG. 
INC RECCNT( ‘UPDATE REC COUNT 
MOV RECCNT(RS), @DATAWT 4 AND INSERT IT INTO WRT BFR 
MOV (SP )+,R2 ;POP 2 RTN ADRS FROM STACK. 
MOV (SP)-,R2 
JSR PC .ExCUTE ;GO RE-ISSUE THE COMMAND. 
UMP GOWAIT ;GO WAIT FOR INTERRUPT - CHECK STATUS. 
ELSE IF ERROR RECOVERY IS NOT ENABLED: 
50202$ 
INCB =~ UNREC ;SET UNRECOVERABLE ERROR FLAG. 
RTS PC ; RETURN. 
SUBROUTINE TO HANDLE TERMINATION CLASS CODE 6, UNRECOVERABLE ERROR. 
TAPE POSITION HAS BEEN LOST. THE ONLY VALID RECOVERY PROCEDURE 
IS TO REWIND AND START AT BOT UNLESS THE TAPE HAS LABELS OR 
SEQUENCE NUMBERS. THIS DIAGNOSTIC WILL REWIND AND RETRY THE 
COMMAND ONLY IF DENSITY CHECK IS SET, OTHERWISE THE UNIT WILL BE 
DROPPED FROM THE TEST SEQUENCE. 
INPUTS: 
OUTPUTS: 
REGISTERS: R2, R4 
CALLS: RTLE, WSSR, EXCUTE, GOWAIT, DROPU 
BIT X3.OCK .MSGPKT +MS. XS3; IF X3.0CK NOTSETIN MSGPKT+-MS.XS3 THEN 
;IF THERE IS NO DENSITY CHECK THEN: 
TST CMDLG ;IF CMD IS A READ OR WRITE THEN: 
BEQ 50204$ 
INCB RWERR ;SET RD/WR ERROR F 
INCB -~ UNREC ;SET UNRECOVERABLE LeRAOR FLAG. 
ERRDF 11,URERM,STAERM ;REPORT UNRECOVERABLE ERROR. 
TRAP CSEROF 
WORD il 
"WORD URERM 


SEQ 0085 


17 


4195 
4194 
4195 
4196 
4197 
4196 
4199 
4200 
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008787 


000207 


017240 


014550 
003460 


003460 
003521 
003471 


002350 
012740 


012114 
012424 


003470 


017240 


002514 


JSR PC ,DROPU 
BR 50205$ 
50203: 
SR PC .RTILE 


50206$: 


50207$: 


50210$: 


TCC?:: 


J 

TST RETRYC 

BNE 50206$ 

ERRSOFT 11,URERM,STAERM 


INC RETRYC 
TSTB IRE 
BNE 207$ 
INCB  ERRREC 
MOV ORWCPK , ATSDB(RS) 
JSR PC,WSSR 
MOV (SP)-,R2 
MOV (SP)+ Ro 
JSR PC, EXCUTE 
GOWAIT 
50210$ 
INCB -« UNREC 
* ats PC 


SEQ 0086 


aa: ST ae 
sREPORT ERROR + DROP UNIT 
;ELSE -IF THERE IS DENSITY CHECK: 


;CHECK FOR RETRY LIMIT EXCEEDED. 


;IF THIS IS THE ORIGINAL ERROR THEN: 
;REPORT DENSITY CHECK ERROR 
TRAP CSERSOF T 
WORD URE 
. WORD RM 
-WORD STAERM 


;UPDATE RETRY COUNT. 
;IF ERROR RECOVERY IS ENABLED THEN: 


;SET ERROR RECOVERY FLAG, 
S TSSUE A REWIND COMMAND, 
;WAIT FOR SUBSYSTEM READY, 

;POP 2 RTN ADRS FROM STACK. 


sREISSUE THE COMMAND, 
;WAIT FOR INTERRUPT 
sELSE-IF ERR REC DISABLED: 


;SET UNRECOVERABLE ERROR FLAG. 


;RETURN 


SUBROUTINE TO HANDLE TERMINATION CLASS CODE 7, FATAL SUBSYSTEM 
OF PROPERLY PERFORMING 


ERROR. THE 


SUBSYSTEM IS INCAP 


ABLE 
S OR AT LEAST ITS INTEGRITY IS 


COMMAND 

REFER TO THE FATAL CLASS 
ADDITIONAL 

INPUTS: 


OUTPUTS: 
REGISTERS: R2, R4 
CALLS: 


ERRDF 12,FATSM,STAERM 


JSR 


RTS PE’ 


INE TO CHECK FOR RETRY LIMIT EXCEEDED. 


SUBROUT 
IF EXCEEDED AND 
INPUTS: 


SERIOUSLY QUESTIONABLE. 
CODE FIELD r bi | TSSR REGISTER FOR 
INFORMATION ON THE TYPE OF FATAL ERROR. 


sREPORT FATAL SUBSYSTEM ERROR. 


TRAP CSEROF 
-WORD 12 
.WORD FATSM 
WORD STAERM 


;DROP THE UNIT. 
;RETURN. 


PRINTS ERROR MESSAGE 


UNIT UNLESS COMMAND IS A READ. 


J7/ 


424) 
424 

424 

4244 
4245 
4246 
4247 
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.¢) 
014572 
014574 


014576 
014576 
4602 
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000413 


003426 


017240 


017240 


003460 
003470 


000020 


RTLE:: 


50211$: 


50213: 


50212$: 


50215$%: 


50214: 
RTLRTN: 


OUTPUT 

REGISTERS R2, R4. 

CALLS: DROPU 

vst CHOLG ;IF CMD IS NOT A READ OR WRITE THEN: 

ERRDF 1, URERM,STAERM ;REPORT UNRECOVERABLE ERROR. 
TRAP CSERDF 
WORD il 
“WORD URERM 
.WORD STAERM 

JSR PC, DROPU ;0ROP THE UNIT. 

MOV (SP)+.R2 ;POP RTN ADRS FROM STACK. 

BR RTLRTN ;AND RETURN. 

INCB RWERR ;SET READ/WRITE ERROR F LAG. 

CMP CMDLG, #2 ;IF CMD IS A uRT OR WTM: 

BNE 50212 

cH RETRYC,@WRECL ;IF RETRY COUNT HAS REACHED LIMIT: 

INCB §_- UNREC ;SET UNRECOVERABLE FLAG 

ERRDF 14,RLEXM,STAERM ;REPORT RETRY LIMIT EXCEEDCD. 
TRAP  CSERDF 
woRD 14 
-WORD RLEXM 
“WORD STAERM 

JSR PC, DROPU ;OROP THE UNIT 

MOV (SP)-,R2 ;POP 2 RTN ADRS FROM STACK. 

;ELSE - CMD IS A READ: 

BR 50214$ 

CMP RETRYC,@RRECL ;IF RETRY COUNT HAS REACHED LIMIT: 

BNE 50215$ 

INCB ;SET UNRECOVERABLE FLAG 

ERRHRD 14,RLEXM,STAERM ;REPORT RECOVERABLE ERROR 
TRAP  C$ERHRD 
WORD 14 
“WORD RLEXM 
“WORD STAERM 

MOV (SP)+,R2 ;POP 2 RTN ADRS FROM STACK. 

RTS PC ; RETURN 


REWRITE A BAD, BUT RECOVERABLE WRITTEN RECORD. 
ON SAME SPOT: REPEAT 4 TIMES. 


IF ANY OF 4 REPEATS BAD LOG SUSPECTED 
BAD SPOT, RETRY AGAIN. RETRY 4 TIMES. ORD, 4 REPEATS EACH. 
IF RECORD NOT GOOD AFTER 4 RETRIES tne IT, EXIT WITH 
FLAG WRTYER SET PRINT ING RETRY FAILED. 
THIS ALL SCHEME 1s, RE REENTERE 20 TIMES MAX IE 20 BAD 
S MAX ARE ALLOWE 


SEQ 0087 


K7 


32 
4335 
4334 
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015062 


015062 
015062 
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101005 
013703 
060304 
016514 


105237 


015356 
003464 
015532 
00 


003525 


WRTY:: 


50217$%: 


50221%: 


50222$: 
502208: 


50223: 


50227$: 
502263: 


SEQ 0088 
INPUTS: 
OUTPUTS: 
REGISTERS: R3,R4 
CALLS: BORERS, REWRT 
;BEGIN RETRY ; REPEAT 
;BEGIN REPEAT ; REPEAT 
JSR PC, BORERS ;BACKSPACE/ERASE ONE RECORD 
CLRB WRT YER ;CLEAR WRITE RETRY ERROR 
JSR PC .REWRT *REURITE RECORD ON SAME SPOT 
INCB RPTCNT OUNT REPEATS 
CMPB = RPTCNT, 64 LIMIT: 4 REPEATS OR RECOVERED 
BEQ 50222$ 
TSTB WRT YER 
Q 50221$ 
;END REPEAT 
INC RETRYC ;COUNT RETRIES 
TSTB WRT 
BNE 50223$ 
BR 50216$ ;EXIT RETRY LOOP IF RECOVERED 
1STB ERCVER ;IFB ERCVER NE #0 THEN 
PRINTB #BTMSG1,RETRYC,<B,RPTCNT> ;PRINT SUSPECTED -BaD SPOT ; 
BISB $RPTCNT.(SP) 
MOV RETRYC. -(SP) 
MOV 8 TMSG1, -( SP) 
MOV 3,-(SP) 
MOV “RO 
TRAP CsPNTB 
#10,SP 
cne RETRYC, 02 ;ON FIRST RETRY, LOGG BAD SPOT 
MOV BTADDR(RS),BTPT ;8TPT IS BOTH THE BAD SPOT COUNTER 
MOV TPT R4 ;AND THE LOGGING INDEX 
ADD $2 ,R4 
MOV R4.aBTPT 
CMP R4' 940 ;IF R4 LOS 640. THEN 
BHI 50227% 
MOV BTPT.R3 : STORE FIRST 20 BAD SPOTS 
ADD R3,R4 LET R4 := R4 + RB ; 
MOV RECCNT(RS),(R4)  ;LET (R4) := RECCNT(RS) ; 
INCB  ERSFLG ;ERASE FLAG TO ERASE BAD RECORD 





L/ 
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105037 
105037 


023727 
001274 


003467 
003462 


003460 


002207 


015307 
000001 


000004 


502243: 


50216$: 


BIMSG2: 


SEQ 0089 
CLRB = RWERR ;CANCELL “LOG” ERROR FLAG ON FAILING RET 
CLRB = RPTCNT ;CLEAR REPEAT COUNT FOR NEXT RETRY 
RETRYC, 04 ;LIMIT: 4 RETRIES 
BNE 50217$ 
;END RETRY 
TSTB WRTYER ;IFB WRTYER NE #0 THEN 
BEQ 50230$ 
TSTB  ERCVER ;IFB ERCVER NE ¢0 THEN 
BEQ 50231$ 
PRINTB #BTMSG3 ;PRINT RETRY FAILED 
MOV OB TMSG3, -( SP) 
MOV 61,-(SP) 
MOV oO 
TRAP CSPNTB 
ADD $4,SP 


* ats PC 

\WORD 0 ;STORAGE FOR WRITE CMD WHILE RETRYING 
: “WORD O ;STORAGE FOR WRITE CMD WORD WHILE RETRYING 
; ‘WORD O ;STORAGE FOR WRITE BPCR WHILE RETRYING 


: .ASCIZ /s#ASUSPECT BAD SPOT AFTER SD1SA RETRY, #D1SA REPEATSN/ 


-ASCIZ /SNSABAD TAPE OVERFLOW: CHANGE TAPE !sNsN/ 


M7 


4360 


4400 
4401 


GLOBAL AREAS 
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015353 


520 
015524 


015530 
015530 


015532 
015540 


015546 
015554 
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013737 


013737 


BIMSG3: 


.ASCIZ /#ARETRY FAILED ON BAD SPOT... ERASED! sN/ 
.EVEN 

SUBR TO BACSPACE ONE RECORD 

IF THE ERASE FLAG IS SET, THEN ERASE THAT RECORD 

INPUTS: ERSFLG 1 = DO ERASE 

OUTPUTS: 

REGISTERS: 

CALLS: EXCUTE, GOWAIT, CKHAE 

: MOV CMDWRD .PCMDWD SET COMMAND TO SPACE REV 

MOV @SRR , CHDWRD ;LET CHORD @SRR iy 

MOV .CMDPKT  ;LET CMDPKT := CMDWRD CLR.BY @BRF.C ; 

BIC .C, CMDPKT 

MOV CMDPKT,CMDSAV ;LET CMDSAV := 

MOV 61. CMDPKT «CP. ADL NET CHOPKT OCP. ADL = ' 

CLR CMOLG ;LET CMOLG := #0 

JSR PC, CMDAC ; 

JSR PC. EXCUTE ; 

JSR PC ,GOWAIT : 

JSR PC, CKHAE 

TSTB ~—s ERSFLG ;WHEN ERASE FLAG IS SET, DO ERASE 

BEQ 50232$ 

MOV CMDWRO , ;LET PCMDWD := ; 

MOV SERS , CHDWRD ;LET CMOWRD := OERS ; 

MOV CMDWRD , CMDPKT ;LET CMDPKT := CMDWRD ; 

MOV CMDPKT . CMDSAV ;LET CHOSAV := CMDPKT ; 

JSR PC, CMDAC 

JSR PC. EXCUTE 

JSR PC. GOWAIT 

JSR Cc, 

CLRB  ERSFLG ;LET ERSFLG :B= #0 

RTS PC 

SUBR TO REWRITE A BADLY WRITTEN RECORD 

MOV CMDWRD.PCMDWD RESTORE WRITE COMMAND PACKET 

MOV WTYWRD.CMDWRD ;LET CMDWRD := WTYWRD ; 

MOV WTYCMD:CMDPKT ;LET CMDPKT := WTYCMD , 

MOV CMDPKT.CMDSAV ;LET CMDSAV := CMDPKT ; 


SE@ 0090 


N7 
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SEQ 0091 


4402 015562 013737 003406 002332 MOV DATAMT . CMDPKT+CP. ADL ;LET CMDPKT-CP.ADL := DATAWT ; 
4403 015570 013737 015150 002336 MOV WTYBRF . CMOPKT+-CP.CNT ;LET CMDPKT+CP.CNT := WTYBRF ; 
4404 015576 012737 000002 003426 MOV $2, CMDL ;LET CMOLG := #2 ; 
4405 01 004737 011124 JSR PC, CMDAC 
4406 015610 004737 012114 JSR PC, EXCUTE ;RE-WRITE RECORD 
4407 015614 004737 012424 JSR PC ,GOWAIT ; 
4408 01 004737 017540 JSR PC; CKHAE ; 
4409 015624 RTS PC 
4411 ; SUBROUTINE TO LOG BYTES READ/WRITTEN. 
441 ; ALSO UPDATES READ/WRITE ERROR COUNTERS. 
44} ; INPUTS: 
4414 ; OUTPUTS: 
4415 ; REGISTERS: R2, R3, R4. 
446 ; CALLS: 
4418 015626 105737 003466 LOG:: TSTB  ERLOG ;IF DATA AND ERRORS HAVE NOT BEEN LOGGED THEN: 
4419 015632 001126 BNE 502334 
4420 015634 105237 003466 INCB €ERLOG ;SET LOG DONE FLAG. 
4421 015640 013704 003426 MOV CMOLG,.R4 ;GET CURRENT CMO LOGGING CODE. 
4422 015644 005704 TST R4 ‘IF THERE IS A CODE THEN: 
4423 015646 001520 BEQ 50234$ 
4424 015650 162704 000002 SUB $2,R4 ;ADJUST THE CODE FOR TABLE INDEX. 
4425 015654 010502 MOV RS,.R2 ;R2 = ADR OF BYTE COUNT LSW. 
4426 015656 2 016112 ADD BINC(R4),R2 
4427 01 702 002626 ADD 
4428 01 063712 003416 ADD BRFCNT,(R2) 3ADD BRF TO LSW 
4429 015672 023737 002360 003416 CMP MSGPKT+MS.RFC,BRFCNT ;IF THE RFC IS LOWER OR THE SAME AS BRF THEN 
30 015700 101002 BHI 50235 
4431 015702 163712 002360 SUB MSGPKT +MS .RFC,(R2) ;SUBTRACT RFC FROM EXPECTED BRF. 
4433 015706 50235$: 
34 015 010203 MOV R2,R3 ;R3 = ADR OF 2ND WORD. 
4435 015710 062703 000010 ADD $10,R3 
4437 0157 502364: WHILE (R2) GT #999. DO 
38 015714 021227 001747 CMe R23. 9999. 
4439 015720 003404 BLE 237% 
015722 162712 001750 SUB $1000. ,(R2) ; UPDATE BYTE COUNT 
4441 015726 005213 INC 3) sLET (R3) := (R3) + #1 :2ND WORD. 
4443 015730 000771 BR 50236 
015732 50237$: 
4445 015732 010302 HOV Rs R2 ;LET R2 := RB + 910 ;R2 = ADR OF 3RD WORD. 
015734 062702 000010 
4447 015740 502404: oo #288) GT #999. DO 
015740 021327 001747 ‘ 
4449 015744 003404 
4450 015746 162713 001750 oe $1000. ,(R3) ;UPDATE BYTE COUNT 
4451 015752 005212 INC (R2) sLET (R2) := (R2) + @1 :3RD WORD. 
4453 015754 000771 BR 50240$ 
4454 015756 502414: 
4455 015 010203 MOV R2,R3 :LET RB := R2 + 016 ;R3 = ADR OF 4TH WORD. 
4456 015760 062703 000010 ADO #10,R3 
4457 015764 502424: WHILE CRE) GT #999. DO 
4458 015764 021227 001747 cre (R2), 0999. 


B8 
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4459 015770 003404 BLE 502434 

4460 015772 162712 001750 SUB #1000. ,(R2) ;UPDATE BYTE COUNT 

4461 015776 005213 INC (R3) ;LET (R3) := (R3) + #1 :4TH WORD. 

4463 016000 000771 BR 50242$ 
016002 50243$: 

4465 016002 105737 003467 TSTB RWERR ;IF R/W ERROR, UPDATE ERROR COUNT. 
016006 001440 BEQ 50244$ 

4467 016010 010502 MOV RS,R2 ;R2 = ADR OF COUNTER. 
016012 066402 016120 ADD EINC(R4),R2 

4469 016016 062702 002766 ADD @WRREC ,R2 

4470 016022 105737 003470 TSTB —sUNREC ;IS THE ERROR UNRECOVERABLE? 

4471 016026 001404 BEQ 50245$ 

4472 016030 062702 000010 ADD $10,R2 ;YES, POINT TO NEXT COUNTER. 

4473 016034 005212 INC (R25 ;UPDATE THE ERROR COUNTER 

4474 ;ELSE - IF ERROR IS RECOVERABLE: 

4475 016036 000424 BR 50246$ 

4476 016040 502453: 

4477 016040 00521 INC (R2) ;UPDATE THE ERROR COUNTER 

4478 016042 105737 002213 TSTB = TREC ;IF ERROR RECOVERY IS ENABLED: 

4479 016046 0010 BNE 50247$ 

4480 016050 105737 003522 TSTB OPED ;IF UNIT HAS NOT BEEN DROPPED: 

4481 016054 001015 BNE 250$ 
016056 105737 002207 TSTB  ERCVER 

4483 016062 001412 BEQ 50250$ 

4484 016064 PRINTB #@NURTY1,RETRYC ;PRINT @ OF RETRIES TO RECOVER 
016064 013746 003460 MOV RETRYC, -(SP) 
016070 012746 005422 MOV @NURTY1, -(SP) 
016074 012746 MOV $2,-(SP) 
016100 01 MOV SP ‘RO 
016102 104414 TRAP C$PNTB 

6104 062706 000006 ADD 06, 

4485 ;PROVIDED PRINT HAS BEEN ENABLED 

4486 016110 50250$ 

4487 

4488 016110 50247$ 

4489 

4490 

4491 016110 50246$ 

4492 

4493 016110 50244 

4494 

4495 016110 50234$ 

4496 

4497 016110 502334: 

4496 016110 000207 RTS PC 

4500 INDEXES TO BYTE COUNTERS. 

4501 016112 000000 BINC: 0 ; WRITE. 

4502 016114 000040 ;READ REV 

4503 016116 000100 READ FWD 

4504 : INDEXES TO READ/WRITE ERROR COUNTERS. 

4505 016120 INC ; WRITE. 

4506 016122 000020 20 ;READ REV. 

4507 016124 000040 40 ;READ FWD. 

4509 ; IF A WRITE/VERIFY COMMAND IS ISSUED, CONTROL IS THEN 


C8 
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013737 


013737 
013737 
005037 


023737 


003516 


003420 
104401 
000004 


016212 
003420 
104001 
000006 
016212 


003412 


011124 
017142 


002330 
002330 


002330 


003422 
002332 


003414 


177777 
003420 
003502 
003502 


SEQ 0093 


Mane Lage 2 TO THIS SUBROUTINE TO READ REVERSE A Mee 
OUT _ 


ARD, CHECK DATA, THEN CONTINUE TO NEXT C 


QUTBUTE, 
CALLS: 


VFEXC. 
VFYDAT::TSTB § VFYFLG ;IF DATA IS TO BE VERIFIED: 
BEQ 50251$ 
MOV CMDWRD , PCMDWD ;SAVE THE PREVIOUS COMMAND WORD. 
MOV ; ;COMMAND IS READ REV. 
MOV ; ;SET UP CMD LOGGING INDEX. 
JSR PC’ VFEXC GO READ ALL THE RECORDS REV 
MOV ‘ ;SAVE THE PREVI C 
MOV @RDF , CHDWRD ;COMMAND IS READ F 
MOV 06, CMOLG SET UP CMD LOGGING iNDEX 
JSR PC. VFEXC ;GO READ ALL RECORDS FWD. 
50251: 
RTS PC ; RETURN. 
; SUBROUTINE TO EXECUTE THE READ AND VERIFY, FORWARD OR REVERSE. 
Py NPU T 8 
: OUTPUTS: 
; REGISTERS: R2 
; CALLS: CMDAC, FIRSTU, VFISU, NEXTU, CKHAE. 
VFEXC: : MOV CMOWRD . CHDPKT ;COMMAND PACKET = READ REV OR FWD. 
TSTB SWBFLG- ;IF BYTES ARE TO BE SWAPPED: 
BEQ 50252$ 
BIS $SWB.C, CMDPKT ;SET SWAB BIT IN CMD PACKET. 
$0252: 
MOV CMDPKT , CMDSA ;SAVE COMMAND PACKET 1ST WORD. 
MOV DATARD, CHDPKT «CP. ADL ;SAVE BUFFER aStaRt ADDRESS. 
CLR NCNT ;CLEAR NUMBER OF OPERATIONS. 
50253$: ;WHILE NCNT LT NCNT1 DO ;WHILE THERE ARE RECORDS REMAINING: 
cr NCNT .NCNT1 
JSR PC. CHOAC ;STORE CMD ASCII IN ERROR MSG. 
JSR ;SET UP FOR FIRST UNIT 
502554: WHILE "TBEVTBL CRS) NE @END DO ;WHILE THERE ARE DEVICES REMAINING: 
CMe BL(RS).@END 
SFO oS se% 
BIT @MOD . CO, CMDWRD ;IF CMD IS REVERSE THEN: 
BEQ 502574 
BIT #X0.B0T ,EOTFLG(RS) ;IF NOT AT BOT 
BIT 8X0. E0T, EOTFLG(RS) ;BUT IF AT EOT 
BEQ 502614 
TSTB = ALLEOT ;AND ALL OTHERS AT EOT 
BEQ 50262¢ 


4567 
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016350 
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004737 


004737 
000732 
004737 
005237 
013737 
000712 
000207 


016440 


016440 


017210 


003410 
000010 


003410 
177777 


012114 
003522 


012424 


003424 


SEQ 0094 


JSR PC, VFISU ;THEN READ VERIFY 
;IF NOT ALL AT EOT, FREEZE UNIT(S) 
50262$: 
;1F NOT AT BOT AND 
BR 502634 
50261$: 
JSR PC, VFISU ;NOT AT EOT, READ VFY 
50263$: 
502603: 
BR 502644 ;ELSE IF CMD IS NOT REVERSE: 
50257$: 
BIT XO. EOT ,EOTFLG(RS) 
BEQ 50265$ 
BIT CMD .CO, CMDWRD 
BNE 50266$ 
502653: 
;IF NOT AT EOT OR NOT A MOTION CMD THEN: 
JSR PC, VFISU ;ISSUE CMD, CHECK STATUS AND DATA. 
50266$: 
50264$: 
JSR PC ,NEXTU ;GO FIND THE NEXT UNIT. 
BR 50255$ 
502563: 
JSR PC, CKHAE ;CHECK FOR HALT AFTER EACH CMD. 
INC NCNT ;UPDATE THE RECORD COUNT. 
MOV CMDWRD , PCMDWD ;SAVE PREVIOUS COMMAND 
BR 50253% 
50254$: 
RTS PC ; RETURN. 
; SUBROUTINE TO ISSUE COMPIAND AWAIT INTERRUPT, 
; CHECK STATUS, CHECK DATA 
: INPUTS: 
’ OUTPUTS: 
; REGISTERS: R2 
; CALLS EXCUTE, GOWAIT, CKDATA. 
VFISU:: mov DATARD.R2 ;INIT READ BUFFER POINTER. 
50267$: ;WHILE R2 NE DATARD DO ;UNTIL 8 BYTES HAVE BEEN SET, 
CMP R2, DATARD 
BEQ 50270 
MOV @-1,-(R2) ;INIT READ BUFFER. 
BR 50267$ 
502703: 
JSR PC, EXCUTE :GO EXECUTE THE COMMAND. 
TSTB OROPED ;IF UNIT HAS NOT BEEN DROPPED THEN: 
BNE 50271% 
JSR PC, GOWAIT ;GO WAIT FOR DONE BIT. 


GLOBAL AREAS MACRO VOS.03 Friday 22-May-87 08:12 Page 26-39 _ 
GLOBAL SUBROUTINES SECTION 
4624 016502 502718: 
4625 016502 105737 003522 TSTB ;IF UNIT HAS NOT BEEN DROPPED THEN: 
016 001006 BNE $0272$ 
4627 016510 032765 000002 003502 BIT 8X0. BOT ,EOTFLG(RS) ;WHEN NOT REVERSED INTO BOT, THEN 
4628 016516 001002 BNE 50273$ 
4629 016520 004737 016526 JSR PC, CKDATA ;GO VERIFY DATA. 
4631 016524 502733: 
4633 016524 502723: 
4634 016524 000207 RTS PC 
$3 
4637 ; SUBROUTINE TO COMPARE DATA BETWEEN READ AND WRITE BUFFERS 
4638 ; AND PRINT ERROR MESSAGE ON MISCOMPARE. 
4639 ; INPUTS: 
4640 ; OUTPUTS: 
464) ; REGISTERS: R2, R3, R4. 
aon ; CALLS: GCMDA 
4644 016526 013703 003416 CKDATA: : MOV BRFCNT,R3 ;COMPUTE REC LENGTH READ 
4645 016532 163703 002360 SUB MSGPKT-MS.RFC,R3 
016536 005703 TST R3 ;WHEN NO DATA RECEIVED 
4647 016540 001015 BNE 50274$ 
4648 016542 ERRHRD 17,WTVERM,DTAERM ;PRINT ERROR AND EXIT 
016542 104456 TRAP CSERHRD 
016544 000021 WORD 17 
016546 004430 “WORD WTVERM 
16550 005752 “WORD DTAERM 
4649 016552 PRINTB #O0TAER4 ;COMPARE ROUTINE 
016552 012746 005337 MOV @DTAER4, -(SP) 
016556 012746 MOV #1,-(SP) 
016562 01 MOV SP. RO 
016564 104414 TRAP C$PNTB 
016566 062706 000004 ADD 64,SP 
4650 016572 BR 50275$ 
4651 016574 502743: 
4652 016574 337 003416 CMP R3,BRECNT ;WHEN REC READ IS LONGER 
4653 016600 101417 BLOS 50276 
4654 016602 ERRHRD 17,WTVERM,DTAERM ;THAN EXPECTED, PRINT 
016602 104456 TRAP  CS$ERHRD 
016604 000021 WORD 17 
016606 004430 “WORD WTVERM 
016610 005752 -WORD OTAERM 
4655 016612 PRINTB @DTAERS, CMDPKT+CP.CNT ;AN ERROR MESSAGE 
016612 013746 002336 MOV CMDPKT+CP.CNT, -(SP) 
016616 012746 005360 MOV oOT -(SP) 
016622 012746 000002 MOV @2,-(SP) 
01 01 MOV SP RO 
016630 104414 TRAP CsPNTB 
016632 062706 o00c% ADD 06 .SP 
4656 ;AND EXIT ROUTINE 
4657 016636 000536 BR 50277$ 
4658 016640 502763: 
4659 016640 010337 017136 MOV R3, CKDCNT ;SAVE VERIFICATION LENGTH - 1. 
016644 005337 017136 DEC CKOCNT 
4661 016650 005037 017140 CLR CKDFF ;CLEAR @ OF BYTES IN ERROR COUNTER. 


F8 
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CLR iJ T BYTE COUNT 
aces 016656 on s908 003406 MOV DATAUT RS ist arte Soe ADORESS. 
013704 003410 MOV DATARD | R4 GET READ BUFFER ADDRESS. 
a6e5 Olceee 105737 003523 TSTB 1SWB ;WHEN RUNNING TEST1-SUB i2. 
0644 016672 001401 BEQ 300$ 
4667 016674 000313 SWAB ss (RB) SWAP FIRST WORD OF WRT BFR 
;WHICH CONTAINS THE RECORD COUNT 
4669 016676 50300$: 
4670 ; REPEAT ;REPEAT UNTIL ALL DATA IS COMPARED: 
4671 016676 50301: 
4672 016676 020237 017136 CMP R2, CKDCNT ;IF THIS IS THE LAST BYTE THEN: 
4673 016702 001011 50302$ 
4674 016704 105737 003520 TSTB SWBFLG ;IF BYTE SWAPPING IS ENABLED THEN: 
4675 016710 001 BEQ 50303$ 
4676 016712 032737 000001 017136 BIT 981700, CKDCNT ;IF RECORD LENGTH IS ODD THEN: 
4677 016720 001 BNE 
4678 016722 105723 TSTB = (RB) ;LAST BYTE WILL BE IN 
4679 016724 105724 TSTB Ss (RR) ; THE UPPER BYTE. 
4681 016726 50304$: 
4682 
4683 016726 50303: 
4684 
4685 016726 50302$: 
4686 0167 121314 CMPB CR3),(R4) ;ARE THEY EQUAL. 
4687 016730 0014 BEQ $ ;BR IF SO. 
016732 005737 017140 TST  CKDFF 31 ST TIME THRU? 
4689 016736 001010 BNE 2% ;8R IF NOT. 
4690 016740 005265 003346 INC VF YCNTCRS) ;INC THE VERIFY ERROR COUNTER 
4691 016744 005265 003356 INC  HRDCNT(RS) 31 HARD ERROR C 
4692 016750 17, WTVERM, DTAERM ;REPORT WRITE/VERIFY ERROR. 
016750 104456 TRAP $ C$ERHRD - 
016752 000021 .WORD 17 
016754 004430 " WORD 
6756 005 "WORD  OTAERM 
4693 016760 005237 017140 2s: INC CKDFF sLET CKDFF := CKDFF + #1 ;INCREMENT @ OF BYTES IN ERROR. 
4694 016764 111437 003436 MOVB ), TIME save wad DATA FOR TYPOUT. 
4695 016770 042737 177400 003436 BIC 177400, TIME1 ;CLEAR AGE. 
4696 016776 111337 003440 MO (R3),TI ;SAVE SHOULD BE DATA FOR TYPOUT. 
4697 017 042737 177400 003440 BIC 6177400, TIME2 ;CLEAR GARBAGE. 
4698 017010 023727 01714C 000013 OFF, il ;IF ERROR BYTE COUNT IS LESS THAN 11: 
99 017016 17 BGE 50305 
4700 017020 PRINTX @DTAER2,R2,<B, TIME1>,<B,TIME2>;PRINT ACTUAL & EXPECTED DATA 
017020 CLR -(SP) 
017022 153716 003440 B1S8 TIME2, (SP) 
017026 R -(SP) 
017030 153716 003436 BISB $ TIME1.(SP) 
017034 01 MOV 2, -( SP) 
017036 012746 005226 MOV @OTAER2, -(SP) 
017042 012746 000004 MOV 64,-(SP 
017046 01 MOV SP. RO 
017050 104415 TRAP C$PNTX 
17052 062706 000012 ADD 612,SP 
4701 017056 50305$: 
4703 017056 105723 3$; TSTB = (RB) ;UPDATE WRITE BUFFER ADDRESS. 
4704 017060 105724 TSTB 3s (RA) ;UPDATE READ BUFFER ADDRESS. 


pts 
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017062 
7064 


017210 
017214 
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016537 
000207 


105037 


017136 


002604 


003522 


177774 


177777 


002074 


50306$: 
50277$: 
50275$: 


CKDCNT: . 


CKDFF : 


FIRSTU:: 
50307$: 


50310$: 


50311$: 


NEXTU:: 
50312$: 
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SEQ 0097 

TSTB (R2)- ;UPDATE BYTE COUNTER. 

CMP R2, sEND OF DATA COMPARE REPEAT LOOP. 

BLE 50301$ 

INC CKDCNT ;CKDCNT EQUALS RECORD LENGTH. 

ist cK OFF ;IF COMPARE ERROR HAS OCCURED THEN: 

PRINTB #DTAER3,CKDFF ,CKDCNT ;PRINT @ OF BYTES IN ERROR. 
MOV CKDCNT , -( SP) 
MOV CKDFF , -(SP) 
MOV OOTAERS, -( SP) 
MOV 63,-(SP) 
MOV SP RO 
TRAP C$PNTB 
ADD #10,SP 

RTS PC ;OTHERWISE, RETURN. 

WORD 0 :@ OF BYTES TO BE VERIFIED -1. 

“WORD O ;@ OF BYTES IN ERROR COUNTER. 

SUBROUT INE TO FIND THE FIRST DEVICE IN THE TEST SEQUENCE. 

OUTPUTS: 

REGISTERS: 

CALLS: 

CLRB ODROPED ;CLR UNIT DROPPED FLAG 

CLR RS CLR DEVICE POINTER. 

CrP DEVTBL (RS), ONINUSE ;WHILE DEVICES ARE NOT IN USE: 

ADD $2.R5 ;LET RS := RS + 62 ;POINT TO NEXT DEVICE. 

BR 50307$ 

cre DEVTBL(RS), @END ;IF ALL UNITS HAVE BEEN DROPPED THEN: 

DOCLN ;00 CLEAN CODE AND TERMINATE PASS. 
TRAP C$DCLN 

MOV DEVTBL(RS).L$LUN ;SET UNIT @ IN “HEADER” FOR ERROR REPORT 

RTS PC ;RETURN WITH 1ST DEVICE IN RS. 

SUBROUTINE TO FIND THE NEXT UNIT IN THE TEST CYCLE. 

INPUTS: 

OUTPUTS; 

REGISTERS: 

CALLS: 

CLRB  DROPED ;CLR UNIT DROPPED FLAG 

; REPEAT ;REPEAT UNTIL THE NEXT DEVICE IS FOUND. 


H8 
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4754 017214 062705 000002 ADD $2,R5 ;UPDATE DEVICE TABLE POINTER. 

4755 017220 026527 002604 177774 CMP DEVTBL(RS), @NINUSE ;UNTIL DEVTBL(RS) NE @NINUSE 

4756 017226 001772 BEQ 50312$ 

4757 017230 016537 002604 002074 MOV DEVTBL(RS),L$LUN ;SET UNIT @ IN “HEADER” FOR ERROR REPORT 

4758 017236 207 RTS PC ; RETURN. 

4780 

4761 : SUBROUTINE TO DROP A DEVICE FROM THE TEST SEQUENCE. 

4762 ; INPUTS: 

4763 ; OUTPUTS: 

4764 ; REGISTERS: 

4765 ; CALLS: MOVMSG, PRXST, LOG 

4767 017240 003366 DROPU:: INC FTLCNTC(RS) ; INCREMENT THE FATAL ERROR COUNT. 

4768 017244 013704 002370 MOV MSGPKT -MS. XS3.R4 GET UDIAG ERROR CODE FROM XSTATS. 

4769 017250 042704 000377 BIC 0377 

4770 017254 016503 002544 MOV RSGPKACRS), 283, ADR OF THIS UNIT'S MSG PACKET . 

4771 017260 2 CLR = 60 R COUNTER. 

4772 017262 , 50313$: ;WHILE na. NE E MSGENT DO ;WHILE THERE ARE MORE LOCATIONS: 

4773 017262 020227 000020 émp 

4774 017266 001 BEQ Sofieee “ 

4775 017270 012723 177777 MOV o-1 _ ;INIT THE MSG PACKET WITH ALL 1'S 

4776 017274 062702 000002 ADD 3 tas ;LET R2 := R2 + #2 ;UPDATE COUNTER. 

4778 017300 000770 BR 50313$ 

4779 017302 50314$: 

4780 017302 012775 002340 002514 MOV GSCPK , ATSDB(RS) ;INITIATE A GET STATUS COMMAND. 

4781 017310 004737 012740 JSR PC,WSSR ;WAIT A WHILE FOR SSR=1 

4782 017314 004737 012774 JSR PC , MOVMSG ;MOVE MSG PACKET TO COMMON AREA 

4783 017320 020427 157400 CMP R4. 6X3. RNY TIF WE HAVE A CAPSTAN RUNAWAY THEN: 

4784 017324 001005 BNE 503153 

4785 017326 ERRDF 16,RNYM,STAERM ;REPORT CAPSTAN RUNAWAY WITH TACH CNT. 
017326 104455 TRAP CSERDF 
017330 0000 16 
017332 004753 “WORD RNYM 
017334 006120 .WORD STAERM 

4786 ;ELSE-IF NOT A RUNNAWAY: 

4787 017336 000402 BR 50316$ 

4788 017340 50315$: 

4789 017340 004737 017452 JSR PC ,PRXST ;PRINT EXTENDED STATUS REGISTERS. 

4791 017344 503163: 

4792 017344 105737 003465 TSTB  RECLOG ;IF THE RECORD HAS BEEN LOGGED THEN: 

4793 017350 001 BEQ 50317$ 

4794 017352 105237 003522 INCB  OROPED ;SET UNIT DROPPED FLAG. 

4795 017356 004737 015626 JSR PC,.LOG ;LOG DATA BYTES + RD/WR ERRORS. 

4797 017362 50317$: 

4798 017362 DORPT ;PRINT PERFORMANCE REPORT 
017362 104424 TRAP § C$DRPT 

4799 017364 005765 003326 DROPUA: TST PASCNT(RS) ;IF PASCNT(RS) NE #0 THEN 

4800 017370 001402 BEQ 

4801 017372 005365 003326 DEC PASCNT(RS) ;LET PASCNT(RS) := PASCNT(RS) - #1 

4808 017376 503203: 

4804 017376 013737 003534 017450 MOV TSNP , DROPN ;SAVE @ OF UNIT TO BE 

4805 017404 013700 003534 MOV TSNP RO ;RO=LOGICAL DEVICE NUMBER 
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017410 
017410 


017412 
0 


0 
017472 


017472 
017476 
7502 
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104451 


026527 
001410 
105737 

005 


002604 177774 


002215 


003526 


003522 


003531 
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SEQ 0099 
DODU RO ;DROP THE UNIT 
TRAP C$D0DU 
;EXEC BGNDU-ENDDU CODE IF IDU = O 
DEVTBL( RS), @NINUSE ;I1F UNIT NOT DROPPED 
BEQ 50321$ 
TSTB IREC ;IF RECOVERY IS ENABLED THEN: 
BNE 50322$ 
NOP 
NOP 
NOP 
INCB STAFLG ;SET START FLAG TO ENABLE REWIND, 
50322$: 
50321: 
DRORTN: INCB DROPED ;SET UNIT DROPPED FLAG. 
RTS PC ;RETURN. 
DROPN: .WORD 0 ;@ OF UNIT TO BE DROPPED 
: SUBROUTINE TO PRINT EXTENDED STATUS REGISTERS. 
; INPUTS: 
: OUTPUTS: 
3 REGISTERS: 
; CALLS: 
PRXST:: PRINTX @#GETSTM 
MOV @OGETSTM, -( SP) 
MOV Sp'ag” 
TRAP C$PNTX 
ADD 04 ,SP 
PRINTX #@STAERS,MSGPKT+MS.XSO,MSGPKT+MS.XS1,MSGPKT-+MS.XS2,MSGPKT+MS . XS3,MSGPKT+MS . XS 
MOV MSGPKT MS .XS4, -( SP) 
MOV MSGPKT -MS .XS3, -( SP) 
MOV MSGPKT «MS .XS2,-( SP) 
MOV MSGPKT «MS .XS1,-(SP) 
MOV MSGPKT +MS . XSO, -( SP) 
MOV @STAERS, -( SP) 
+ ESO 
TRAP C$PNTX 
ADD 16,.SP 
RTS PC 
; SUBROUTINE TO HALT AFTER EACH COMMAND. 
: INPUTS: 
; OUTPUTS: 
3 REGISTERS: R3, R4 
: CALLS: 
CKHAE : : ata sonetee HAE NE @0 THEN ;1F HALT FLAG IS SET: 
TSTs MISCFG ;IFB MISCFG EQ #0 THEN : 
BNE 50324% 


sIS MANUAL INTERVENTION ALLOWED? 
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SEG 0100 
GLOBAL SUBROUTINES SECTION | 


4847 


104443 
000404 


000207 


003531 


177777 


C$MANI 


TRAP 

;BR IF NOT. 
ote CKHRTN 
;LET R4 ;:= WORD . 


CMOWRD 
;FETCH a nae CMD ASCII. 


sMOVE CMD 

sLET WAL TMs 1 :B= (R3)- 
sINTO MESSAGE. 

;HALT - WAIT FOR AN OEPRATOR INPUT 


BNCOMPLETE CKHRTN 


Me2 
ME1,1,YES 


pet 


sLET MISCFG :B= #0 : 


; RETURN 


. TITLE MISCELLANEOUS SECTIONS 
-SBTTL REPORT CODING SECTION 


; THE REPORT CODING SECTION CONTAINS THE 
PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 
gc°e 


T 


L$RPT:: 
MOV RS. RSSAVE 
FIRSTU 
50326$: JPHILE DeViBL (5) NE @END DO 
émp VTBL.CRS), SEND 


BEQ Pat ; 
PRINTS 


;SAVE CURRENT DEVICE POINTER. 
SFIND THE FIRST UNIT. 
;WHILE THERE ARE MORE DEVICES: 


ORPT1A,DEVTBLCRS),PASCNT(RS),RECCNT(RS) 


PRINTS 


K8 
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4887 020004 


4688 


PRINTS 


PRINTS 


PRINTS 


PRINTS 


TSTB BADTSW 
BEQ 50330 
JSR PC,BTRPT 


50330$: 
PRINTS 
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ORPTIC ,RRBC-30( RS), RRBC-20(0RS),RRBC-10(RS 


ORPT10 .RFBC-SOCRS) ,RFBC-20( RS), RFBC-10¢ 


ORPTIF ,WRRECCRS),RRRECCRS),RFRECCRS) 


ORPT1G, WRUNRCRS ), RRUNRCRS ), RFUNRCRS ) 


;IFB8 BADTSW NE #0 THEN 


;GO PRINT BAD TAPE SPOTS WHEN ENABLED 


ORPTII, SCCNTCRS),HROCNTCRS),.FTLCNTCRS), VF YCNTCRS ) 


SEQ 0101 
MOV WRBC(RS), -(SP) 
MOV WRBC-10(RS), -(SP) 
MOV WRBC-20(R5S), -(SP) 
MOV WRBC-30(RS). -(SP) 
MOV eRPTIB, -( SP) 
+ ie IR Og 
TRAP CSPNTS 
ADD $14,SP 

), RRBC(RS) 

MOV RRBC(RS), -(SP) 
MOV RRBC-10(RS), -(SP) 
MOV RRBC-20(RS). -(SP) 
MOV RRBC-30(RS), -(SP) 
MOV @RPTIC, -(SP) 
MOV #3. -(SP) 
TRAP CSPNTS 
ADD 614,SP 
RS), RFBCC(RS) 
MOV RFBC(RS), -(SP) 
MOV RFBC-10(RS), -(SP) 
MOV RFBC-20(RS), -(SP) 
MOV RFBC+30(R5). -(SP) 
MOV @RPT1D, -( SP) 
mB 
TRAP CSPNTS 
ADD $14,SP 
MOV RFREC(RS),-(SP) 
MOV RRREC(RS). -(SP) 
MOV WRREC(RS), -(SP) 
MOV ORPTIF, -(SP) 
MOV 04,-(SP) 
MOV SP ,RO 
TRAP C$PNTS 
ADD #12,SP 
MOV RFUNR(RS), -(SP) 
MOV (R5),-(SP) 
MOV CRS), -(SP) 
MOV @RPT1IG, -(SP) 
MOV 04, -(SP) 
MOV SP RO 
TRAP CS$PNTS 
ADD #12,SP 
. 
MOV VF YCNT(RS).-(SP) 
MOV FTLCNT(RS), -(SP) 
MOV HROCNT(RS), -(SP) 
MOV SCCNT(RS), -(SP) 


L8 
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021243 
000005 


000014 
017210 


003452 


003316 
021117 
000002 


021234 
000002 


0035i2 


SEQ 0102 
MOV @RPTII, -(SP) 
MOV 05,-(SP) 
MOV SP RO 
TRAP C$PNTS 
ADD $14,SP 
JSR PC, NEXTU ;FIND THE NEXT UNIT. 
BR 50326 
50327$: 
MOV RSSAVE RS ;RESTORE CURRENT DEVICE POINTER. 
EXIT RPT 
.WORD  J$uUMP 
“WORD 1L10010-2-. 
; SUBR TO PRINT BAD TAPES SPOTS DURING THE REPORT PRINTS 
; WRITE RETRIES: CUMULATIVE COUNT | 
; BAD TAPE SPOTS: COUNT PER TAPE PASS ONLY, NOT CUMULATIVE. 
; COUNT OF RECOVERABLE WRITE ERRORS EXCLUDES BAD TAPE SPOTS. 
BTRPT:: PRINTS #RPTIE,.WRTYCT(RS) ;PRINT GLOBAL WRITE RETRY COUNT 
MOV WRTYCTC(RS), -(SP) 
MOV ORPTIE, -(SP) 
MOV 2. 55° 
TRAP CSPNTS 
ADD $6, SP 
MOV BTADDR(RS),BTPT ;8TPT IS BOTH THE BAD TAPE SPOT COUNTER 
HOV agTPT.RS ;AND THE LOGGING INDEX 
PRINTS #RPT1U.R3 ;PRINT @ OF BAD TAPE SPOTS 
MOV R3,-(SP) 
MOV @RPT1U,-CSP) 
MOV $2,-(SP) 
MOV SP. RO 
TRAP  C$PNTS 
ADD 66, SP 
TST R3 ;PRINT RECORD @ IF BAD SPOTS DETECTED 
BEQ 50331% 
CMP R3.0 ;IF R3 HI #20. THEN : 
BLOS 50332$ 
$20. .R3 :20 BAD SPOTS IS THE LIMIT 
503323: 
PRINTS @CRLFSP ; 
MOV @CRLFSP, -(SP) 
a 
TRAP CSPNTS 
ADO 64,SP 
Mov BTPT .Re ;LET R4 := BIPT + #2 ;FETCH A BAD SPOT ID 
CLR R2 ;R2 = PRINT COUNT PER LINE: 10 MAX 
503334:  ;REPEAT ; 
PRINTS ORPTIK, (R4) ;PRINT A BAD SPOT ID 
MOV (R4),-CSP 
MOV ORPTIK. -(SP) 
MOV 2, -¢ 


M8 
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4 
4967 021356 


104425 
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005741 
00000 


50334$: 


50331$: 


‘TA 


TABL 
; THE SUPERVISOR USES THE TBL TO WARN THE 













SEQ 0103 
MOV SP RO 
TRAP CSPNTS 
$6.SP 
INC R2 ;LET R2 := R2 + 1 ;COUNT PRINTS 
ADD 62,R4 ;LET R4 := R4 + O2 |NEXT 
oe Re $10. SIF R2 EQ #10. THEN , 
PRINTS @CRLFSP :;GO TO NEXT PRINT LINE PAST 10 PRINTS 
MOV OCRLFSP, -(SP) 
MOV 1. -(SP) 
TRAP SAONTS 
ADD 64,SP 
SUB #10. ,.R3 ;LET R3 := RB - 010. ;ADJUST BAD SPOT COUNT 
SUB #10. .R2 ;LET R2 := RD - #10. ;ADJUST PRINT COUNT 
: 
CMP R2,R3 ;UNTIL R2 EQ R3 ;LIMIT: @ OF BAD SPOTS 
BNE 503333 
; 
PRINTS #@CRLF ; 
MOV @CRLF . -CSP) 
MOV e : 3g”) 
TRAP C$PNTS 
ADD 64,SP 
IZ T #D1sS3SAPASS : SDS8S3SARECORD : SDSSN/ 
/SABYTES WRITTEN 8D36A, 873A, SZ38A, SZ 30N/ 
SCIZ /SABYTES READ REV 8D38A.82738A,5238A. 82 30N/ 
/SPABYTES READ FWD SD38A.8738A.8236A.87350N/ 
ASCIZ /#S236AWRTSS4SARDRSS48ARDFSN/- 
ASCIZ /SARECOVERABLE ERRORS #D5sS2sD5sS2s0S5aN/ 
-ASCIZ /SAUNRECOVERABLE ERRORS #D5sS2sD5sS2s05sN/ 
-ASCIZ /SAWRITE RETRIESSS8S058N/ 
-ASCIZ /sNsD28A BAD SPOTS THIS TAPE PASS PRECEDING RECORD ¢:/ 
“ASCIZ /#D58S1/ 
"ASCII “SASPEC CONDsSS3sAHARDSS3SAFATALSS3SACOMPARESN” 
-ASCIZ /8S38058S 380585 360585 35D Se:NSN/ 
"LIST BEX 
"EVEN 
ENDRPT 
TRAP  C$RPT 


LOAD DEVICE PROTECTION TABLE 


FOR SUPERVISOR TO IDENTIFY THE P-TBL ae THE LOAD DEV 
OPERATOR WHEN HE TRIES TO TEST THE LOAD DEV 


BGNPROT 


N8 
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LOAD DEVICE PROTECTION TABLE re het 
021356 L$PROT:: 
4970 021360 377779 “WORD 8 TBE OFFSET OF Mase BUS UNIT #: -1 = NOT A MASS BUS DE 
gf97i O2i362 177777 “WORD -1 ;P-TBL OFFSET OF DRIVE @: -1 = NONE, THREE DRIVES PER CONTRO 
ENDPROT 


.SBTTL INITIALIZE SECTION 


‘<_ THE INITIALIZE SECTION Ty th oe THE CODING THAT IS PERFORMED 
; AT THE BEGINNING OF EACH PASS. 
gece 


BGNINIT 
L$INIT:: 
000003 002330 INIT10: BIT Q8IT0!B1T1,0CMOPKT IF CMD PACKET IS NOT ON MODULO 4 BOUNDRY: 
SF 1.CMOPKM ;PRINT ERROR MSG, 
TRAP — CSERSF 
‘WORD 1 
“WORD  CMDPKM 
“WORD 0 
DELAY 200. ;GO TO SUPERVISOR, WAIT 2 SECONDS. 
000310 HOV $200. .(PC)« 
‘WORD 0 
002116 HOV —s L$DLY, (PC) 
“WORD 
177772 BEC ~6(PC) 
177756 DEC *30PC) 
BNE 20 
BR INIT10 ; 
503353: 
002204 TsTB  CLRFLG sIF CLR COUNTERS FLAG SET: 
002204 CLR CLRFLG INIT CLR FLAG. 
CLR RD LET R2 := #0 
S0337$:  ;WHILE R2 NE @CNTLEN DO 
000550 cr Re, @CNTLEN 
002626 CLR WRBC(R2) ;CLR ALL STATISTICAL COUNTERS. 
000002 ADD 2 ,R2 ;LET R2 := R2 > 02 
BR 50337$ 
503403: 
50336$: 
002205 TSTB BRAN IF RESET RANDOM VARIABLE FLAG IS SET THEN: 
153624 003432 MOV @RANBC , RANB ;RESET RANDOM BASE @. 





032561 003454 MOV @RANSC ,RANS sRESET RANDOM SAVE LOCATION. 


BY 


MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


5025 


5040 
5041 021 


0 
5042 


5043 
5044 
5045 


021514 
021514 


021720 


012727 
000000 
013727 
000000 
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SEQ 0105 
503415: 
READEF EF. START ;READ START COMMAND EVENT FLAG. 
000u40 MOV SEF .START.RO 
TRAP  C$REFG 
BNCOMPLETE INITiS ;BRANCH IF NOT STARTING. 
BCC INITIS 
003526 INCB STAFLG ;SET START COMMAND FLAG. 
000006 HOV 6,R5  ;LET RS := 06 
S0342$; ;REPEAT ;INITIATE UNIT NUMBER TABLE 
177774 002 MOV @NINUSE, DEVTBL (RS) BY STORING NOT IN USE IN EACH LOCATION. 
000002 SUB $2,R5 LET RS := RS - $2 
TST RS SUNTIL RS EQ 80 
BNE 5034 
000001 002012 CMP $1,L $UNIT ;ONLY ONE UNIT ALLOWED 
BEQ 5034$ ; 
PRINTF #AUDRUN ;TELL THE MAN 
005146 MOV SAUDRUN, - (SP) 
000001 Mov é1. =(SP) 
TRAP SOON TF 
000004 ADD $4,SP 
DELAY 25 ;WAIT 
000025 MOV $25,(PC)- 
002116 MOV L$DLY,(PC)- 
177772 bEC -6(PC) 
BNE le 
177756 DEC -22(PC) 
BNE 20 
DOCLN ; ABORT 
TRAP —- C$DCLN 
002012 5034: MOV L SUNIT.RS ;LET RS := L$UNIT SHIFT 1 
50343$: ;REPEAT ;STORE ALL UNIT 
000002 SUB $2,R5 LET RS := RS - 2 ;NUMBERS IN DEVTBL. 
002604 MOV RS. DEVTBL (RS ;LET DEVTBLC(RS) := RS SHIFT -1 
002604 ASR DEVTBLCRS) 
TST 5 ;UNTIL RS EQ #0 
BNE 50343$ 
INITIS: READEF #€F.PWR ;HAS THERE BE A POWER FAILURE? 
000034 MOV GEF .PWR,RO 
TRAP  CSREFG 
BNCOMPLETE INIT16 ;BRANCH IF NOT. 
BCC INIT16 
003526 INCB STAFLG ;IF SO - SET THE START FLAG. 
003527 INCB  PWRFLG ;IF SO - SET THE POWER FAIL FLAG. 
INIT16: RFLAGS OPFLAG ;READ AND STORE FLAGS SET BY BY OPERATOR | 
003536 HOV RO, OPFLAG 
CLR R3 ;LET RB := 90 CLEAR EVENT FLAG 
003527 TSTB  PURFLG TF POWER FAIL HAS NOT OCCURRED THEN: 


50344$ 
READEF #EF .NEW 


sUPDATE PASS COUNT WHEN 
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SEQ 0106 
INITIALIZE SECTION | 
021720 012700 000035 MOV GEF .NEW,RO 
021724 104447 TRAP  C$REFG 
S046 021726 103014 BCC 503453 ;SUPERVISOR IS IN NEW PASS 
5047 021730 105737 003526 TSTB = STAFLG ;AND DIAG WAS NEITHER STARTED 
5048 021734 001010 BNE 50346$ 
5049 021736 READEF #€F.RES ;NOR 
021736 012700 000037 MOV GEF .RES,RO 
021742 104447 TRAP  C$REFG 
5050 021744 103402 BCS 50347$ ;IFCOND CC THEN ; RESTARTED 
3051 021746 005103 COM R3 ;LET R3_:= COMP R3 ;00 IT 
5053 021750 000401 BR 50350$ 
5054 021752 50347$: 
5055 021752 005203 INC R3 ;SET 1ST PASS IF NEW PASS AND 
5056 ; RESTARTING 
5057 021754 50350$: 
3039 021754 000401 BR 50351$ 
5060 021756 503463: 
5061 021756 005203 INC R3 ;SET 1S7 PASS IF NEW PASS AND 
5062 ; STARTING : 
5063 021760 503515: 
;00 NOT UPDATE IT ON CONTINUE 
5S 021760 50345$: 
5066 ;OR ON POWER FAIL 
5067 021760 503443: 
5068 021760 004737 017142 JSR PC, FIRSTU ;INIT DEVICE POINTER. 
5069 021764 005002 CLR R2 LET R2 := #0 ;INIT DEVICE COUNTER. 
5070 021766 50352$: ;WHILE DEVTBLC(RS) NE END DO 
5071 021766 026527 002604 177777 émp DEVTBL(RS), 
5072 021774 001456 BEQ 534 
5073 021776 005202 INC R2 ;LET R2 :=* R2 + o1 
5074 022000 010500 MOV RS,RO ;LET RO := RS SHIFT -1 
5075 022002 006200 ASR R 
5076 022004 GPHARD RO,RO ;GET HARDWARE P TABLE FROM SUPER. 
022004 104442 TRAP  C$GPHRD 
5077 022006 103044 BCC 354$ EIFCOND CS THEN 
5078 022010 011065 002514 MOV (RO), TSDBCRS) ;SAVE TSDB ADORESS. 
5079 022014 012065 4 MOV (RO), TSSR(RS) ;SAVE TSSR ADDRESS. 
062765 000002 002524 ADD $2, TSSR(RS) 
5081 012065 00 MOV (RO), TSVCTC(RS) ;SAVE INTERRUPT VECTOR ADDRESS. 
022032 011065 003532 MOV (RO), TSUNTCRS) + SAVE NUMBER OF DRIVE 
5083 022036 011037 003534 CR 02 TSNP wioe VE FOR PRINT OUT'S 
022042 SETVEC (RS), TSSINTC(RS), @INTPRI 
022042 012746 000340 MOV @INTPRI, -(SP) 
022046 016546 002554 MOV TeSINTCRSD (SP) 
022052 016546 002534 MOV TSVCTCRS),~CSP) 
022056 012746 000003 MOV 63,-(SP) 
022062 104437 TRAP c+svec 
022064 062706 000010 ADD 
5085 ;SET UP INTERUPT PROCESSING CONDITIONS. 
5086 022070 005065 003472 CLR INTFLG(RS) ;CLEAR INTERRUPT F 
5087 022074 005703 TST R3 ‘ACTUAL PASSCOUNT UPDATE PER R3 
5088 022076 001410 BEQ 50355$ 
9 022100 005703 TST R3 ;IF R3 LT #0 THEN 
022102 002003 BGE 50356$ 
5091 022104 005265 003326 INC PASCNT(RS) ;LET PASCNT(RS) := PASCNT(RS) + 1 


$111 


022120 


MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


000403 
012765 


005065 
004737 
000716 
005702 
001026 
012746 
012746 
010600 
104417 
062706 
012727 
000000 


013727 
000000 
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000001 


003376 
017210 


005114 
000001 


000004 
000310 
002116 
177772 
177756 


000000 
002215 
000020 
017142 
002604 
003530 


000340 
023770 
000004 


003326 


003536 


177777 


S0353$: 


50360$ : 


50362$: 


BR 50357$ 

MOV #1 ,PASCNTCRS) 

CLR RECCNTCRS) 
JSR PC,NEXTU 

BR 50352$ 

TST Re 

BNE 50360$ 
PRINTF #AUDRPM 
DELAY 200. 
BREAK 

DOCLN 


SETPRI #PRIOO 


TSTB IREC 

one 1$ 

BI ADR , OPFLAG 
BNE $ 

JSR PC ,FIRSTU 

CMP DEVTBLCRS), @END 
ot 1$ 


RB TRAPD4 
SETVEC 4, @TRAP4, OINTPRI 


SEQ 0107 
;LET PASCNT(RS) := 1 
;CLEAR RECORD COUNT 
;00 IT FOR ALL DEVICES. 
;IF THERE ARE NO UNITS: 
;PRINT ALL UNITS DROPPED, 
MOV @AUDRPM, -(SP) 
MOV @1.-(SP) 
MOV "RO 
TRAP § CSPNTF 
ADO 64, 
;GO TO SUPERVISOR, WAIT 2 SECONDS. 
MOV $200. ,(PC)- 
. WORD 
MO L$OLY,(PC)- 
. WORD 
bE -6(PC) 
BNE _-4 
DEC -22(PC) 
BNE .-20 
;GO TO SUPERVISOR, CHECK TTY. aa 
:00 CLEAN CODE - ABORT PASS. 
TRAP C$D0CLN 
;LOWER CPU PRIORITY TO 0 
MOV @PRIOO,RO 
C$SPRI 


TRAP 
sIF ERROR RECOVERY IS ENABLED 


;AND AUTO-DROP NOT CALLED, THEN SET UP FOR FIRST 
;WHILE THERE ARE MORE DEVICES: 


;CLEAR TRAP FLAG 
;sSET VECTOR 4,PRIORTY a6 


MOV @TRAP4 , -(SP) 
MOV 04,-(SP) 


EQ 
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INITIALIZE SECTION 
022272 012746 000003 MOV 03,-(SP) 
022276 104437 TRAP C$SVEC 
022300 062706 000010 ADO #10,SP 


;START 3.5 MINUTE 
022304 012737 000001 003436 #1 
000404 


SEG 01086 


COUNTER 
MOV TIME ;INCR TIMEi FROM #1 TO 925 BY #1 
BR 50365$ 
022314 000137 023142 1$: UMP 503634 
NC 
MP 


503665: 
022320 005237 003436 I 
022324 50365$: 
022324 tH 003436 000025 C spe ees 
022334 012775 002340 002514 MOV @GSCPK , ATSDBC( RS ) ;AND GET UNITS STATUS 
5140 022342 DELAY 25 ;WAIT 
022342 012727 000025 
000000 
022350 013727 002116 LSOLY,CPC)- 
000000 
022356 005367 177772 i toe 
022362 
es 367 177756 DEC “23¢0C) 
5141 022372 CLRVEC 4 ;CLEAR VECTOR AT 4 


$4,RO 
022376 104436 TRAP C$CVEC 
5142 022400 105737 003530 TSTB TRAPD4 ;IFB TRAPD4 NE 60 THEN 


2$ 
5144 022406 005265 003366 INC FTLCNTCRS) sLET FTLCNTCRS) := FTLCNTCRS) «+ #1 
5145S 022412 PRINTF @NODEV, TSSRCRS) ;PRINT ERROR 


MOV . 
022416 012746 005543 MOV ONODEV ~¢SP 
000002 MOV 


TIME1 


VV 
ee re 
Se SRALEKESY 
% 
§ 


925,,(PC)« 


022426 0600 MOV 
022430 104417 TRAP SO ONTE 


02 062706 000006 ADD 
5146 022436 016537 002604 017450 MOV DEVTBLCRS) ,DROPN ;SAVE @ OF UNIT TO BE DROPPED. 
5147 022444 yt Eee MOV ~ Tae sRO=LOGICAL DEVICE NUMBER 


022446 
5149 tats DODU RO sDROP THE UNIT ae 
5150 ; EXEC BGNDU-ENDDU CODE IF IDU = 
$151 022452 DOCLN ;D0 CLEAN EABORT 

022452 104444 TRAP C$O0CLN 


5153 022454 105037 003530 2s: CLRB TRAPD4 ;CLEAR TRAP FLAG 
5154 esseaes ecanee SETVEC #4, @TRAP4, SINTPRI ;SET VECTOR 4,PRIORTY a6 


——s 


oe -(SP) 


062706 
5155 022506 005775 TST @TSSRCRS ) ;CHECK FOR ADDRESS 
5156 022512 DELAY 25 s;WAIT 


ry 


MISCELLANEOUS SECTIONS 


INITIALIZE SECTION 


022520 
022524 
2526 
0225352 
022534 
2540 
$157 022542 
022542 
2546 
5158 022550 
5159 022554 
5160 022556 
5161 022562 
022562 
2566 
022572 
022576 
2600 
022602 
3162 022606 
5163 022614 
5164 022616 
5165 022620 
022620 
5166 
5167 022622 
022622 
5168 
5169 022624 
5179 
5171 022626 
5172 022632 
5173 022636 
022636 
2642 
022644 
022650 
022652 
022656 
022660 
022664 
5174 022666 
5175 022674 
022674 
022700 
022702 
27 
022710 
022714 
022716 
022722 
5176 022724 
5177 022732 
5178 022734 
5179 022742 


013727 
000000 


000000 
013727 
000000 
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002116 
177772 


177756 


010026 
002514 


000025 
002116 
177772 
177756 
002340 
000025 
002116 
177772 
177756 
000200 
000100 


017450 


002514 


002524 
002524 


4$: 
3$: 


CLRVEC 


TSTB 
BEQ 


MOV 
DELAY 


o4 
TRAPD4 
3 


4 
FTLCNTCRS) 
ONODEV , TSSRCRS ) 


DEVTBL CRS), DROPN 
RS RO 


RO 

RO 

50367$ 

PC , SETDEF 
a 


@GSCPK , ATSDBCRS ) 
25 


O13. S9R .BTSSACRS) 
@TS.OFL ,@TSSRCRS) 
50371$% 


SEQ 0109 
LSOLY,(PC)- 
WORD O 
DEC ~6(PC) 
BNE 
DEC “30PC) 
BNE .-20 
;CLEAR VECTOR AT 4 
MOV 
TRAP esevec 
;IFB TRAPD4 NE #0 THEN 
;LET FTLCNTCRS) := FTLCNTC(RS) + @1 
;PRINT ERROR 
MOV TSSRC(RS), -(SP) 
MOV @NODEV, -(SP) 
MOV 2. -(SB) 
MOV SP RO 
TRAP CSPNTF 
ADD $6 ,SP 
;SAVE @ OF UNIT TO BE DROPPED. 
;RO=LOGICAL DEVICE NUMBER 
;DROP THE UNIT 
csD00U 
1 EXEC BGNDU-ENDOU CODE IF “Tou » 
;00 CLEAN EABORT 
TRAP C$0CLN 
;SET UNIT NUMBER 
MOV €25,,(PC)- 
. WORD 
. WORD 
DEC -6(PC) 
BNE .- 
DEC -22(PC) 
BNE .-20 
;AND GET UNITS STATUS 
;WAIT 
MOV $25. (PC)- 
. WORD 
MOV L$DLY,.(PC)- 
. WORD 
DEC ~6fPC) 
BNE 
DEC “30PC) 
BNE -20 


;IF @TS.SSR SETIN @TSSR(RS) THEN 
:IF @TS.OFL NOTSETIN @TSSRCRS) THEN 
sEXIT COUNTER WHEN UNIT ON LINE 


G9 


3183 05 033746 
0227 


Skunesess | Saeaes & 


MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


012737 
000402 
005237 
023727 
003016 


012727 


000000 
013727 
000000 


005367 
001375 
005367 
001367 
104422 
000754 
000137 


012700 
104436 
023727 
003404 
004737 
004737 


004737 
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003534 


002604 
023740 
000002 


003440 


000144 
002116 
177772 
177756 


003436 


012774 
013512 


017210 


003440 


000013 


000025 


50371: 


50372$;: 


50370$: 


50373: 


50375$: 
503743: 


503763: 


50367$: 
503643: 


50377$: 


SEQ 0110 

PRINTF @OFLINM, TSNP ;PRINT UNIT OFF LINE EVERY 10 SEC 
MOV TSNP, -(SP) 
MOV OOF LINM, -(SP) 
mB 
TRAP CSPNTF 
ADD 96,SP 

50373$ 
PRINTF @NRDYM, DEVTBL(RS) 

MOV DEVTBL(RS),-(SP) 
MOV @NRDYM, -( SP) 
MOV $2,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD $6 ,SP 

MOV #1, TIME2 ;INCR TIME2 FROM #1 TO #13 BY #1 

50374$ 

INC TIME2 

CMP TIME2, 013 

BGT 503763 

DELAY 100. ;WAIT FOR UNIT TO BE SET ON-LINE 
MOV #100. ~CPC)-« 
. WORD 
MOV L$OLY.(PC)- 
. WORD 
DEC “6(PC) 
BNE 
DEC “33PC) 
BNE .-20 

BREAK ;ALLOW TERMINAL INTERRUPT 
TRAP C#BRK 

BR 50375$ 

JUMP 50366$ 

CLRVEC 04 ;CLEAR VECTOR AT 4 
MOV $4 ,RO 
TRAP C$CVEC 

CMP TIME1, #25 ;IF OFF LINE FOR 3.5 MINUTES 

BLE 50377$ 


JSR PC, MOVMSG s;GET MESSAGE PACKET 
JSR PC,TCC1 sPRINT ERROR AND DROP OFF LINE UNIT 
sREPEAT UNTIL ON 7 tant. OR TIMED OUT. 


JSR PC,NEXTU ;SET UP FOR NEXT 


H9 


$241 


MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


000137 


105737 
001026 


104431 
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022242 
003527 
003406 
003406 
004000 
160210 


023250 
000001 


000004 


003410 
003410 
004000 


50363: 
50361$: 


50401$: 


MEMOM : 


SEQ 0111 
UMP 50362$ 
TSTB PWRFLG ;IFB PWRFLG EQ #0 THEN 
BNE 50400 
MEMORY DATAWT ;REQUEST MEMORY FROM SUPER FOR RO/UR BUFFERS. 
MOV RO, DATAWT 
MOV DATAWT,DATARD ;SET RD BFR ADDRESS 
ADD @DATCNT , DATARD 
che SDATAUT , @DATCNT ;WHEN NOT ENOUGH FREE MEMO AVAILABLE 
PRINTF @MEMOM ;WARN OPERATOR 
MOV OMEMOM, -(C SP) 
ay Bie 
TRAP C$PNTF 
ADD $4,SP 
DOCLN ;AND ABORT PASS 
TRAP  C$DCLN 
;DIAG MUST BE RE-LOADED IN A CPU WITH LARGER MEMO 
CLRB  CHGFLG ;CLR CHANGE CMD SEQ TBL FLAG. 
MOV SENDFLG,R3 ;LET R3 := MENDFLG 
JSR PC, CLRERR ;CLEAR ALL FLAGS. 
CLRB PWRFLG ;CLEAR THE POWER FAIL FLAG. 
EXIT INIT 
TRAP C$EXIT 
WORD 1L10012-. 
.ASCII /sAFREE MEMO TOO SMALL FOR RD-WR BFRS=sN/ 


-ASCIZ /#ARE-LOAD IN LARGER MEMOSN/ 


EVEN 


19 


MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


104411 
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002340 
012740 
000200 


000100 
003366 


177777 


017450 


002514 


ENDINIT 
L100l2: 


.SBTTL AUTO DROP SECTION 


SEQ 0112 


TRAP CSINiT 


; SECTION EXECUTED AFTER THE INIT CODE WHEN “ADR” FLAG IS SET BY OPERATOR 
SECTION CHEKS FOR A VALID INTERFACE LOCATION. DROPS UNIT IF NO RESPONSE 


;FROM INTE 
peo 


RF ACE 


BGNAUTO 
LS$AUTO:: 


USR PC,FIRSTU 
WHILE DEVTBL(RS) NE @END DO 
émp DEVTBL(RS), @END 


BEG 
CLRB TRAPD4 3L 
SETVEC 4, @TRAP4, GINTPRI 


50402$: 


MOV @TSDB(RS),R2 
CLRVEC 04 
TSTB TRAPD4 
BEQ 50404$ 
INC FTLCNTC(RS) 
PRINTF #AUTODM, TSDB(RS) 
MOV DEVTBL (RS), DROPN 
MOV R5,RO 
ASR 
DODYU RO ;DROP THE UNIT: 
BR 50405$ 
504043: 
MOV OGSCPK, aTSDB(RS) 
JSR PC 
BIT #T5.SSR,aTSSRC(RS) 
BEQ 50406 $ 
BIT OTS.OFL,a@TSSR(RS) 
BEQ 7 
INC FTLCNT(RS) 


ET TRAPD4 :B 


;FIND FIRST UNIT 
; 


:B= #0 

;SET VECTOR 4 
MOV @INTPRI, -(SP) 
MOV @TRAP4, -( SP) 
MOV .-CSP) 
MOV @3,-(SP) 
TRAP C$SVEC 
ADO #10,SP 

;ADDRESS TSOS INTERFACE 

;CLEAR VECTOR AT 4 
MOV ,RO 
TRAP Cs$CVEC 


;IFB TRAPD4 NE @0 THEN 
;sLET FTLCNTCRS) := FILCNTCRS) + @1 
;PRINT ERROR 


MOV TSDB(RS),-(SP) 
MOV @AUTODM, - (SP) 
MOV @2,-CSP) 

MOV RO 

TRAP CSPNTF 


ADD $6, SP 
SAVE @ OF UNIT TO BE DROPPED. 
;RO=LOGICAL DEVICE NUMBER 


EXEC BGNDU-ENDOU CODE IF IDU = 0 
TRAP C$D00U 


rte GET STATUS COMMAND 

;IF @TS.SSR SETIN @TSSRCRS) THEN 
;IF @TS.OFL SETIN @TSSRC(RS) THEN 
sLET FTLCNTCRS) := FTLCNTCRS) «+ @1 


JI 
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SEQ 0113 
AUTO DROP SECTION : 
5282 023546 PRINTF @OFLINM, TSNP 
023546 013746 003534 MOV TSNP,-(SP 
023552 012746 005456 MOV @OF LINM, -(SP) 
35 012746 MOV $2, -(SP) 
023 01 MOV RO 
023564 104417 TRAP CSPNTF 
023566 062706 000006 ADD $6, SP 
5283 023572 004737 017364 JSR PC,DROPUA 
asec 023576 504073: 
5287 023576 000416 BR 50410$ 
5288 023600 504063: 
5289 023600 005265 003366 INC FTLCNTC(RS) ;LET FTLCNT(RS) := FTLCNT(RS) «+ #1 
5290 023604 PRINTF @NRDYM, DEVTBL(RS) 
023604 016546 002604 MOV DEVTBL( RS), -(SP) 
023610 012746 023740 MOV @NRDYM, -( SP) 
023614 012746 000002 MOV $2,-(SP) 
01 MOV SP. RO 
023622 104417 TRAP CSPNTF 
023624 062706 000006 ADD $6,SP 
$292 023630 004737 017364 JSR PC,DROPUA 
5293 023634 50410$ 
5294 
5295 023634 50405$: 
3296 023634 004737 017210 JSR PC,NEXTU 
5298 023640 000647 BR 50402$ 
3299 023642 50403$ 
5301 023642 ENDAUTO 
023642 L10013: 
023642 104461 TRAP C$AUTO 
5302 
530 


045 101 rr AUTODM: .ASCII /s#ABUS TRAP AT #s06sN/ 


3652 124 122 101 
023655 120 040 101 
3660 124 040 
eae op ie a ce 
5304 023667 045 101 111 -ASCIZ /sAINTERFACE BAD OR NOT SET TO ABOVE ADsN/ 
023672 116 124 1 
3675 122 106 101 
023700 103 105 
023703 101 104 
706 117 122 
023711 116 117 
023714 124 123 


040 
023725 101 102 117 
126 105 040 
0237353 101 104 045 
023736 000 
5305 0235740 045 101 125 NRDYM: .ASCIZ /SAUNIT 8D18A NOT RDYSN/ 


KI 


MISCELLANEOUS SECTIONS MACRO VOS.03 Friday 22-May-87 08:12 Page 26-58 


5310 
S311 
S3i2 
5313 
53 


023770 
023774 


AUTO DROP SECTION 


105237 
000002 


104412 


003530 


017142 
002604 
012740 
002534 
017210 


177777 


.EVEN 
: DEVICE BUS TRAP HANDLER 
; OUTPUT: TRAPD4 BYTE 1: TRAPED AT 4 
$ 0: NO TRAP 
TRAP4:: am TRAPD4; LET TRAPD4 :B= TRAPD4 -+- @1 


.SBTTL CLEANUP CODING SECTION 


; AT 
;eo 


THE END OF EACH PASS 


N 
L$CLEAN:: 


50411$: 
BEQ 


TSVCTCRS) 


BR 50411% 
50412$: 
EXIT CLN 
.EVEN 
N 
110014: 


-SBTTL DROP UNIT SECTION 


3°? 


JSR PC .FIRSTU 
WHILE DEVTBL(RS) NE SEND DO 
bmp DEVTBL (RS). OEND 


3°? 
; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 


;FIND FIRST UNIT. 


;WAIT FOR UNIT READY OR 


TIMEOUT 
sRELEASE INTERRUPT oie * team 


TRAP 
;FIND NEXT UNIT. 


TRAP 
. WORD 


TRAP 


3; THE DROP-UNIT ag BES CONTAINS THE CODING THAT CAUSES A DEVICE 
SHALL AS WHEN DODU 


; TO NO LONGER BE TESTED. THAT 


CODE BE 
;MACRO 1s CALLED WHILE I0U FLAG IS NOT SET BY OPERAT 


SEQ 0114 


ALL DEV. 
TSVCT(RS),RO 
C$CVEC 


CSExIT 
L10014-. 


C$CLEAN 


*, 


MISCELLANEOUS SECTIONS 
DROP UNIT SECTION 


5349 024040 
024040 


3331 024040 
as 024042 


5381 
} 


5384 024210 


010005 
006305 
012765 
016500 
104436 


104453 
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SEQ 0115 
L$DU:: 
mov RO.RS :RS = LOGICAL DEVICE NUMBER x 2. 
177774 002604 MOV ONINUSE , DEVTBL (RS) ;SET NOT IN USE FLAG FOR THE DEVICE. 
CLRVEC TSVCTC(RS) ;RELEASE THE INTERRUPT VECTOR. 
002534 MOV TSVCT(RS),RO 
TRAP CsCVEC 
PRINTF #DROPDM,DROPN ;PRINT DROP DEVICE MESSAGE 
017250 MOV DROPN, -( SP) 
005005 @DROPOM, -( 
MOV é2. a6sP) 
TRAP CSPNTF 
000006 96.SP 
EXIT Du 
.WORD J$uMP 
“WORD 110015-2-. 
.EVEN 
110015: 
TRAP C$Du 
.SBTTL ADD UNIT SECTION 
; THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
; TO BE (A) TESTED FOR THE FIRST TIME, OR (B) RESUMED IN TESTING. IF 
; “EF. AUNIT” IS SET, THE UNIT WILL BE TESTED AS A NEW UNIT 
toes 
BGNAU 
L$AU:: 
mov RO.RS ;RS5 = LOGICAL DEVICE NUMBER xX 2. 
002604 MOV RO, DEVTBL(RS) ;STORE UNIT @ IN DEVICE TABLE. 
GPHARD RO.RO ;GET HARDWARE P TABLE FROM SUPER. 
002514 MOV (RO), TSDB(RS) ;SAVE TSDB ADORESS. 
MOV (RO), TSSR(RS) ;SAVE TSSR ADDRESS. 
002524 ADD 62, TSSR(RS) 
MOV (RO), TSVCT(RS) ;SAVE INTERRUPT VECTOR ADDRESS. 
003532 MOV (RO), TSUNT(RS) ;SAVE NUMBER OF DRIVE 
003534 MOV (RO). TSNP iSAvE FOR PRINT OUT'S 
SETVEC TSVCT(RS), TSSINT(RS), OINTPRI 
000340 MOV @INTPRI, -(SP) 
0025 MOV TSSINT(RS), -(SP) 
002534 MOV TSVCT (RS), - (SP) 
00000 MOV ) 
TRAP caver 
000010 ADD 0,SP 
;SET UP INTERUPT PROCESSING CONDITIONS. 
003472 CLR INTFLGC(RS) ;CLEAR INTERRUPT FLAGS. 
EXIT AU 


M9 


MISCELLANEOUS SECTIONS 
ADD UNIT SECTION 


024210 000167 
024212 000000 


104452 
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SEQ 0116 
.WORD J$UMP 
“WORD 110016-2-. 
EVEN 
ENDAU 
L10016: 
TRAP =s-« C$ 
.TITLE HARDWARE TESTS 
.SBTTL TEST 1: BASIC FUNCTIONS. 
; TEST TO EXECUTE ALL TSOS FUNCTIONS. 
geo 
BGNMOD 
BGNTST 
Ti:: 
003515 CLRB «RANDOM ;CLR THE RANDOM OPERATIONS FLAG. 
003514 CLRB = EXPBOT CLR EXPECT BOT FLAG. 
gp BGNSUB ;SUBTEST 1 - SET CHAR, DRIVE INIT, GET STATUS. 
=e TRAP CsBSUB 
017142 JSR PC .FIRSTU ;FIND THE FIRST UNIT. 
007072 ee. PC, SOF INIT ;INIT DEVICE 
2,NSSRM, STAERM ;REPORT TSOS NOT READY 
TRAP  C$ERODF 
.WORD 2 
“WORD NSSRM 
“WORD  STAERM 
11$: JSR PC ,MDSET :GO DO SETUP’S 
025134 MOV O68F SEQO,R2 ;ADR OF CMD SEQ. 
025110 JSR PC ,BFSEQ ;SET UP CMD SEQ. 
010266 JSR PC‘ EXALL ;EXECUTE CMD SEQ ON ALL DEVICES. 
017142 JSR PC‘ FIRSTU ;FIND THE FIRST UNIT. 
S0413%: ;WHILE DEVTBL(RS) NE SEND DO ;WHILE THERE ARE MORE DEV7CES: 
002604 177777 CHP DEVTEL (RS), #END 
002544 MOV MSGPKACRS),R2 ;GET MSG PACKET ADR 
000012 ADD #12,R2 LET R2 := R2 + 612 ;GET x 
002564 MOV (R25, TSSCLCRS) PSFORE CODE LEVEL FROM DIR BYTE, 
177700 002564 BIC 0177700, TSSCL(RS) 
002574 MOV (R2), TSSSWCRS) ;STORE SWITCH SETTINGS 
177477 002574 BIC 0177477, TSSSWCRS) 
PRINTF #@CODELM,DEVTBL(RS), TSSCL(RS) 
002564 TSSCL(RS),-(SP) 
002604 MOV DEVTBL(RS), -(SP) 


HARDWARE TESTS 
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TEST 1: BASIC FUNCTIONS. 


0041 

000008 
000010 
002574 
002604 
004231 
000003 
000010 


017210 


025220 
025110 
010266 


025312 
025110 
010266 


L10021: 


T1.3: 


L10022: 


71.4: 


110023: 


: gene 


aes 
* 


PC ,NEXTU 
504134 


PRINT THE TSOS MICROCODE LEVEL. 
PRINTF #SWSET,DEVTBL(RS), TSSSW(RS) 


sPRINT THE TSOS SWITCH SETT 


sFIND NEXT UNIT. 


sSUBTEST 2 - REWIND. 


sADR OF CMD SEQ 
;SET UP CMD SE 


Q. 
UTE CMD SEQ ON ALL DEVICES. 


sEXEC 
;CLEAR START FLAG 


TRAP 


TRAP 


sSUBTEST 3 - WRITE/VERIFY. 


sADR OF CMD SEQ. 
sSET UP . 


CMD SEQ 
sEXECUTE CMD SEQ ON ALL DEVICES. 


TRAP 


TRAP 


SEQ 0117 
@CODELM, -(SP) 
#3. =6sP) 
CSPNTF 
#10,SP 


CSESUB 


C$6SUB 


CsESUB 


C$BSUB 


CsESUB 


sSUBTEST 4 - WRITE TAPE MARK, ERASE. 


sADR OF CMD SEQ 
sSET UP CMD SE 


Q. 
sEXECUTE CMD SEQ ON ALL DEVICES. 


TRAP 


CsBSUB 


B10 


HARDWARE TESTS 
TEST i: 


5461 
5462 


BASIC 
024514 
024516 


024516 
024516 


024574 


024576 
024576 
024576 
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104403 


104402 
012702 
004737 
004737 


104403 


104402 
012702 


004737 
004737 


104403 
104402 
012702 
004737 
004737 


104403 


104402 
012702 
004737 
004737 


104403 


FUNCTIONS. 


025364 
025110 
010266 


025426 
025110 


010266 


025500 
025110 
010266 


025604 
025110 
010266 


71.5: 


L10024: 


71.6: 


L10025: 


T1.7: 


L10026: 


71.8: 


L10027: 


71.9: 


L100350: 


BGNSUB 


gBF SEGA R2 
BFSEQ 
Pe’ *OXALL 


#BF SEQS ,R2 
PC ,BFSEQ 
PC ,EXALL 


SBF SEQ6 ,R2 
PC, BFSEQ 
PC EXALL 


OBF SEQ7 ,R2 
PC, BFSEQ 
PC‘ EXALL 


OBF SEQE ,R2 
PC,BFSEQ 
PC,EXALL 


TRAP 


;SUBTEST 5S - SPACE FILES. 


;ADR OF CMD SEQ. 
SSET 


TRAP 


UP _CMD SEQ. 
sEXECUTE CMD SEQ ON ALL DEVICES. 


TRAP 


;SUBTEST 6 - SPACE RECORDS. 


sADR OF CMD SEQ. 
;SET UP CMD SE 


Q. 
sEXECUTE CMD SEQ ON ALL DEVICES. 


TRAP 


TRAP 


;SUBTEST 7 - WRITE RETRY. 


;ADR OF CMD SEQ. 
;SET UP CMD SE 


Q. 
sEXECUTE CMD SEQ ON ALL DEVICES. 


;SUBTEST 8 - READ REV RE 


;ADR OF CMD SEQ. 


;SET UP CMO SEQ. 
sEXECUTE CMD SEQ@ ON ALL DEVICES. 


;SUBTEST 9 - READ FWD RE 


sADR OF CMD SEQ. 
SET 


i UP CMD SEQ. 
sEXECUTE CMD SEQ ON ALL DEVICES. 


TRAP 


TRAP 
TRY. 
TRAP 


TRAP 
TRY. 
TRAP 


TRAP 


CsESUB 


C$BSUB 


C$ESUB 


C$BSUB 


CSESUB 


C$BSUB 


C$ESUB 


C$BSUB 


CSESUB 


C$BSUB 


CSESUB 


SEG 0118 


HARDWARE TESTS 
TEST 1: BASIC 
5497 024636 
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FUNCTIONS. 


104402 
012702 
004737 
004737 


104403 


025636 
025110 
010266 


003523 


003520 


003420 
002336 


003520 
002336 


002336 
003420 
002336 


002336 
002336 


71.10: 


L10031: 


T1.11: 


L10032: 


504163: 


50417$: 


T1.12: 


#BF SEQ9,R2 
PC ,BFSEQ@ 
PC,EXALL 


DATAWT ,R2 


@BFSE10,R2 
SEQ 


SE@ 0119 


;SUBTEST 10- CLEAN. 


TRAP C$BSUB 
sADR OF CMD SEQ. 
SSET UP CMD SEQ. 
;EXECUTE CMD SEQ ON ALL DEVICES. 
TRAP CSESUB 
;SUBTEST 11 - WTV SWAPPED DATA BYTES. 
TRAP C$BSUB 
sADR OF CMD SEQ. 
;SET UP CMD SEQ. 
iWRITE /VERIEY RECORDS 1 AND 2. 
E BYTE SWAPPING. 
;WRITE/VERIFY RECORDS 3 AND 4. 
sDISABLE BYTE SWAPPING. 
CsESUB 


TRAP 
;INIT WRITE BUFFER POINTER. 


ADQ #10. »R 
WHILE R2 NE°DATAUT DO ;UNTIL 10 BYTES HAVE BEEN SWAPPED. 
inp 2, DATAWT 


BEQ 
SWAB 


BR 
INCB 
BGNSUB 


-(R2) ;SWAP DATA BYTES IN WRITE BUFFER. 
50416$ 
T1SWB ;SET Tl SWAP BYTES FLAG FOR “CKDATA” SUBR 
;SUBTEST 12 - READ SWAPPED DATA BYTES. 
TRAP C$BSUB 
© :CMD IS READ REV. 
PC, VFEXC ;VERIFY ODD LENGTH SUAP (RECORD 4). 
$12, CMOPKT+CP. CNT ;CHANGE BYTE COUNT TO 
, VFEXC ;VERIFY EVEN LENGTH Swap (RECORD 3) 
#1, SWBFLG ;ENABLE BYTE SWAPPING. 
$11, CMOPKT+CP. CNT ;CHANGE BYTE COUNT TO 9. 
VFEXC ; VERIFY 000 LENGTH SWAP (RECORD 2). 
012, CMDPKT+CP.CNT ;CHANGE BYTE COUNT TO 
PC, VFEXC ;VERIFY EVEN LENGTH Swap (RECORD 1). 
;CMD IS READ FWD. 
PC, VFEXC ;VERIFY EVEN LENGTH SWAP (RECORD 1). 
11, CMDPKT+CP. CNT 1 CHANGE BYTE COUNT T 
PC, VFEXC ;VERIFY ODD LENGTH SWAP (RECORD 2). 
SWBFLG ;DISABLE BYTE SWAPPING. 
$12, CMDPKT+CP . CNT 1 CHANGE BYTE COUNT TO 10 
PC, VFEXC IFY EVEN LENGTH SWAP (RECORD 3). 
011, CMOPKT+CP.CNT ‘CHANGE BYTE COUNT TO 
PC, VFEXC ;VERIFY ODD LENGTH SWAP (RECORD 4). 


oD: me 
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SEQ 0120 
TEST 1: BASIC FUNCTIONS. 
025076 L10033: 
scaqg 020076 104403 TRAP CSESUB 
5545 025100 105037 003523 CLRB 4s: TISWB ;CLEAR T1 SWAP BYTES FLAG 
5547 025104 EXIT TST 
025104 104432 TRAP —- C$EXIT 
scan 025106 000574 ‘WORD L10017-. 
5549 , SUBROUTINE TO MOVE A COMMAND SEQUENCE TO THE SEQUENCE TABLE. 
5550 ; INPUTS: R2 = FWA OF COMMAND SEQUENCE. 
5551 OUTPUTS: 
5552 REGISTERS: 
Sees ; CALLS: 
5555 025110 012701 003540 BFSEQ:: MOV @CMDSEQ,R1 SINIT SEQ TABLE ADDRESS. 
5556 025114 50420$: ;WHILE (R2) NE SEND DO ;WHILE THERE ARE MORE COMMANDS: 
557 025114 021227 177777 émp R2), SEND 
558 025120 001402 BEQ 
5559 025122 012221 Mav (R2)+,(R1)- ;MOVE COMMANDS TO SEQ TABLE. 
5561 025124 000773 BR 50420$ 
5562 025126 504214: 
5563 025126 012711 177777 MOV SEND, (R1) ;STORE END OF SEQUENCE CODE. 
5564 025132 000207 RTS PC ;RETURN. 
566 
5567 ;, BASIC FUNCTION COMMAND SEQUENCE 
3265 025134 140004 BFSEQO: .WORD SCH ,SET CHAR. 200. (1) 
5570 025136 000200 300 
5571 025140 000001 1 
5572 025142 000000 } 
5578 025144 100013 ORI ;ORIVE INIT. (2) 
5574 025146 000001 1 
5575 025150 000001 i 
5576 025152 000000 } 
577 025154 140004 SCH ;SET CHAR. 20 (3) 
78 025156 000020 36 
5579 025160 000001 1 
162 000000 0 
1 025164 100017 GES ;GET STATUS. (4) 
025166 000001 1 
3 025170 000001 1 
5584 025172 000000 5 
5585 025174 140004 SCH ;SET CHAR. 40. (S) 
025176 000040 40 
7 025200 000001 i 
5588 025202 000000 0 
5589 025208 177777 WORD END 
9 02010 BFSEQI: RWD ;REWIND TWICE. (6) 
93 O5e510 : , 
5593 025212 000002 3 
94 14 000000 0 
95 16 177777 WORD END 
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SEQ 0121 
TEST 1: BASIC FUNCTIONS. 
5597 025220 104105 BFSEQ@2: WTV sWRITE/VERIFY PAT 1. (7) 
5598 025222 004000 DATCNT 
5599 025224 000001 1 
3600 025226 000001 
3601 025230 104105 V ;WTV PAT 2. (8) 
3602 025232 004000 DATCNT 
3603 025234 000001 
055940 04105 V WTV PAT 3 (9) 
; . 
025242 $0400 DATCNT 
5607 025244 000001 
025246 000003 3 
025250 104105 WTV s;WTV PAT 4, (10) 
35610 025252 004000 DATCNT 
5611 025254 000001 
S612 025256 000004 4 
3613 025260 104105 Vv ;WTV PAT S. (11) 
5614 025262 004000 DATCNT 
5615 025264 000001 1 
025266 000005 5 
5617 025270 104105 WTV ;WTV PAT 6. (12) 
5618 025272 004000 DATCNT 
5619 025274 000001 
025276 000006 
5621 0253500 104105 v ;WTV PAT O. (13) 
3622 025302 DATCNT 
S624 025306 000000 0 
S625 025310 177777 -WORD END 
35627 025312 100011 BFSEQS: WTM ;WRITE TAPE MARK. (14) 
5628 025314 000001 1 
3629 025316 000001 1 
5630 025320 000000 0 
35631 025322 104005 WRT ;WRITE 10 RECORDS. (15) 
S632 025324 004000 DATCNT 
5633 025326 000010 
5634 025330 000001 1 
5635 025332 100411 ERS sERASE 10 TIMES. (16) 
5636 025334 000001 1 
5637 025336 000010 10 
5638 025340 
5639 025342 100011 WT™M ;WRITE TAPE MARK. (17) 
5640 025344 1 
5641 025346 000001 1 
ay 025350 0 
ss 025352 101011 WTR ;WT™M RETRY (18) 
025354 1 
S645 025356 000001 1 
5646 025360 000000 0 
5647 025362 177777 .WORD END 
3649 025364 105410 BFSEQ4; SFR sSPACE 2 FILES REV. (19) 
5650 025366 000002 2 
5651 025370 000001 1 
S652 025372 000000 0 
5653 025374 105010 SFF sSPACE 2 FILES FWD. (20) 


F10 
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SEQ 0122 


5654 025376 


000000 
105410 
00000 

000001 
000000 
177777 


BFSEQS: 


BF SEQ6: 


gQonegorn 
D 


es | 


ft ws. eb eee eee eo ee 


gore Geo 
®D 


2% 


;SPACE 2 FILES REV. 


;SPACE 2 FILES FWD. 


;REWIND. 


;SPACE 7 RECORDS FWD. 


;SPACE 7 RECORDS REV. 


;SPACE 7 RECORDS FWD. 


;SPACE 7 RECORDS REV. 


sREWIND. 


;WRITE. 


sWRITE RETRY. 


;sWRITE TAPE MARK. 


;SPACE 1 FILE REV. 


(21) 


(22) 


(27) 


G10 
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SE@ 0123 
TEST 1: BASIC FUNCTIONS. a 


BF SEQ7: ;READ REV. (31) 
sREAD NEXT REV. (32) 


;READ NEXT FWD. (33) 


vi 
“N 
~w 
ad 
~ 
N 
N 
N 
N 
ihe 
$6 


3725 025604 104001 BFSEQS: sREAD FWD. (34) 
004000 


: 
o 


;READ PREVIOUS FWD. (35) 


;READ PREVIOUS REV. (36) 


: 
: 
o 
srs 
2 § 


000001 
177777 
101012 
000001 
000001 
000000 
102010 
000001 
000001 
000000 
177777 


000000 
177777 


104401 


BFSEQ@S: . 


BFSE10: 


L10017 


- SBTTL 


3°? 
; TEST TO CHECK THE DATA RELIABILITY OF 


+ 


. WORD 
EVEN 
ENOTST 


TEST 2: 


ZOre gor ns ~~. e ewe 7 


DATA RELIABILITY. 


;CLEAN. 


;REWIND 


sEND OF SEQUENCE. 


(37) 


;sWRITE/VERIFY EVEN LENGTH. 


;sWRITE/VERIFY ODD LENGTH. 


THE TSOS. 





TRAP 


(39) 


(40) 


CSETST 


H1i0 
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DATA RELIABILITY. 


TEST 2: 


SESsarsessaae 8 


8 So do Bo de Oe oe 
UNRUH O 


112737 
105037 


012721 
012721 
012702 
005102 
010221 
012721 


012711 
004737 


012701 
005 


000001 003515 


003514 
003456 
017142 
007072 


177777 
010266 


003540 


003524 


003434 


Bee 
T2:: 


11$: 


50422$: 


504>3$: 


50424: 


50425: 


BGNTST 


JSR PC, 
TS 


PC ,FIRSTU 
—_— 
2.NSSRM, STAERM 


PC ,MDSET 
BOATCNT .R2 


R2,LENMSK 


L 
SETCH 


STAFLG 
bc Sete 


OUTV,(R1)- 
@DATENT ,(R1)- 
@RNOPSC ,.R2 


R2 
R2,(R1)- 
@RANP ,CR1)- 


PEND ,CR1) 
PC ,EXALL 


eCMDSE@,R1 
R2 


50423% 
ALLEOT 


;IFB STAFLG NE #0 


sLET STAFLG :B= #0 


;LET RANS 


;SET THE RANDOM OPERATIONS FLAG. 

sCLEAR EXPECT BOT FLAG. 

;CLEAR WRITE TAPE ee FLAG 

sFIND THE FIRST UNIT 

sINIT DEVICE 

sREPORT TSOS NOT READY 

AP CSERDF 

-WORD 2 
-WORD NSSRM 
-WORD STAERM 


;GO DO SETUP’'S 
;SET UP THE RECORD LENGTH MASK, 


sALLOW MAXIMUM BUFFER. 


yoy 1 = SET CHARACTERISTIC. 
THEN ;IF STARTING THEN: 


; CMD2=REWIND 
;CLR START FLAG. 


; DO A SUPVSR BREAK FIRST. 
TRAP C$BRK 


;sFILL SEQ TBL WITH RANDOM CMDS. 
:* RANS + RANB 


;SET UP A RANDOM CMD «+ BRF. 


sSTORE END OF SEQUENCE CODE IN TABLE. 
3GO EXECUTE ALL CMOS IN SEQUENCE TABLE 


sINIT CMD SEQ TBL POINTER, 
sREPEAT UNTIL EOT IS REACHED 


sFLAG ALL UNITS @ EOT 


SEQ 0124 


110 
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DATA RELIABILITY. 


TEST 2: 


036132 


5864 026260 


5866 
5867 
9 


5870 
5871 





026264 
026266 
026272 
026276 


026306 
026310 


30 
012721 


027674 


003456 
026430 
026456 
003456 
00374*° 
104401 


RANCMD : 


1$: 


SEG 0125 


;WRITE ONE RECORD BEYOND EOT ON ALL UNITS 


;SO THAT ptt READ STOP DISTANCE 
; SHALL ITION HEAD IN CLEAN 


: 


POS IRG 
sREAD REV THAT EXTRA REC TO RE-POSITION THE TAPE 


PC, TSWEOT 
JSR PC ,RANRD 
MOV @RNOPSC , CMDSEQ-4 
COM ses 
MOV SEQ-4,CMDSEQ-14 
MOV SEND, CR1) 
JSR PC ,EXALL 
CLRB ALLEOT 
MOVB 01,RPTFLG 
MOV oCMDSEG, 
JSR PC, SETRW 
GEND ,CR1) 
JSR PC,EXALL 
EXIT TST 


ADDRESSES OF SUBROUTI 
THE DATA RELIABILITY TEST. 


R2 


1 oe RECORDS FOR FEAD tah 
® OF RECORDS FOR READ REV. 


;@ OF RECORDS FOR READ FORWARD. 
;STORE END OF SEQUENSE CODE IN SEQ TABLE. 
;GO EXECUTE READ REV/FWD OF LAST N RECORDS. 
;CLEAR aH. UNITS @ EOT FLAG 

T PERFORMANCE REPORT DURING REWIND. 


sEXECUTE REWIND eno ON ALL UNITS 


TRAP 
. WORD 


r16084-. 


NES USED TO SET UP RANDOM OPERATIONS IN 


DOWN TAPE MARK 
E REV 


CMD A WRITE? 
AD 
oe. 

AR THE FLAG 


sSTORE READ REV CMD. 


J10 
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or > te TO SET UP A SPACE FILE REVERSE IN THE SEQUENCE TABLE. 


SEQ 0126 
TEST 2: DATA RELIABILITY. 
5872 026314 012721 004000 MOV @DATCNT,(R1)- ;SET BREF TO MAX FOR READ RANDOM LENGTHS. 
5873 026320 063737 003434 003432 ADD RANS , RANB T RAN := RANB - 
5874 026 013702 0034 MOV RANB , R2 TET R2 := RANB CLR. BY @RNOPSC 
5875 026332 0427 177740 BIC @RNOPSC ,R2 
5876 026336 010221 MOV R2,(R1)- ;SET RANDOM @ OF OPERATIONS. 
5877 026 012721 7 MOV @RANP , (R1)- ‘RANDOM PATTERN. 
5878 026 020127 003740 CMP R1, SE 
5879 026350 002007 BGE 2$ 
5880 026352 012721 104001 MOV (R1)- sSTORE READ FWD CMD. 
5881 026356 012721 004000 MOV @DATENT,(R1)+ SET BRF TO MAX TO READ RANDOM LENGTHS. 
5882 026 102 MOV R2,(f1)- ;SET RANDOM @ OF OPERATIONS. 
5883 026 012721 000007 MOV @RANP ,(R1)+ ; RANDOM PATTERN. 
3584 026370 2%: RTS PC 
5886 ; SUBROUTINE TO SET UP A WRITE COMMAND IN THE SEQUENCE TABLE, 
5887 ; THEN A WRITE TAPE MARK AND SPACE FILE REVERSE. 
5888 : 
5889 ; INPUTS: 
5890 ; OUT : 
5891 ; REGISTERS 
Soot ; CALLS: 
5894 026372 012721 104005 RANWR:: MOV OWRT,(R1)- ; STORE WRITE CMD. 
5895 026376 004737 026504 JSR PC, 3ST e OF OPERATIONS, PATTERN. 
5896 026402 005737 003456 TST WTMFLG ‘LAST CMD > Am 
5897 026406 001002 BNE 4 ; YES, RETURN 
5898 026410 005237 003456 INC WTMFLG ‘NO. SET THE FLAG 
5899 026414 000207 i$ RTS 
s500 
5902 ; SUBROUTINE TO SET UP A WRITE/VERIFY COMMAND IN THE SEQUENCE TABLE. 
5903 ; INPUTS: 
5904 ; OUTPUTS: 
5905 ; REGISTERS: 
a0 ; CALLS: 
5908 026416 012721 104105 RANWV:: MOV @WTV,(R1)- +s STORE URITE/ VERIFY CMD. 
5909 026422 004737 JSR PC,RANW ;STORE BRF, @ OF OPERATIONS, PATTERN. 
5910 026426 RTS PC 
3912 
5913 ; SUBROUTINE TO SET UP A WRITE TAPE MARK IN THE SEQUENCE TABLE. 
5914 ; INPUTS: 
5915 ; OUTPUTS: 
5916 ; REGISTERS: 
44 ; CALLS: 
5919 026430 020127 003740 RAWTM:: CMP R1, @SEQEND 
5920 026434 BGE 1$ 
5921 026436 012721 100011 MOV OWTM, (R1)- STORE WRITE TAPE MARK CMD. 
5922 012721 000001 MOV #1,(R1)- ; 
5923 012721 000001 MOV $1,(R1)- ;@ OF OPERATIONS 
924 026452 7 TST (Ri)- ;SKIP PATTERNS 
3925 026454 1s: RTS PC 


K10 


HARDWARE TESTS 


TEST 2: 


5977 
5978 
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DATA RELIABILITY. 


026574 


: OUTPUTS: 
; REGISTERS: 
; CALLS: 
020127 003740 RASFR:: CMP R1, @SEQEND 
002007 BGE 1$ 
012721 105410 MOV OSFR,(R1)-- ;STORE SPACE FILE REVERSE 
012721 000001 MOV #1,(R1)- ; BRE 
012721 000001 MOV #1.(R1)- ;@ OF OPERATIONS 
005721 TST (Ri)- ;SKIP PATTERNS 
1$: RTS PC 
; SUBROUTINE TO STORE BRF, @ OF OPERATIONS, PATTERN IN COMMAND 
; SEQUENCE TABLE FOR WRITE AND WRITE/VERIFY COMMANDS. 
; 
: OUTPUTS: 
; REGISTERS: R2 
: CALLS: 
012721 004000 RANW:: MOV @DATCNT,(R1)- ;SET BRF TO MAX FOR PATTERN GENERATION. 
;RANDOM BRF WILL BE GENERATED FOR EACH RECORD. 
063737 003434 003432 ADD RANS , RANB ;LET RANB := RANB + RANS 
013702 0034 MOV RANB .R2 ;LET R2 := RANB CLR.BY @RNOPSC 
042702 177740 BIC sc 
010221 MOV R2,(R1)- ;SET RANDOM @ OF OPERATIONS. 
012721 000007 MOV @RANP ,(R1)- ;RANDOM PATTERN. 
RTS PC ; RETURN. 
.EVEN 
ENDTST 
L10034: 
104401 TRAP C$ETST 
.SBTTL TEST 3: WRITE COMPATABILITY/WRITE UTILITY. 
; TEST TO WRITE RECORDS FROM BOT TO EOT. 
geo 
BGNTST 
T3:: 
112737 000001 003515 ;SET THE RANDOM OPERATIONS FLAG. 
105037 003514 CLRB exépoT ;LET EXPBOT :B= 80 ;CLEAR EXPECT BOT FLAG. 
004737 017142 JSR PC .FIRSTU ;FIND THE FIRST UNIT. 
004737 007072 JSR PC. SOF INIT ;INIT DEVICE 
103404 BCS 11 
ERRDOF #2,NSSRM,STAERM ;REPORT TSOS NOT READY 
104455 TRAP  CSERDF 
.WORD 2 
004536 “WORD NSSRM 
“WORD STAERM 
004737 007526 11$: JSR PC .MDSET :GO0 DO SETUP’S 


SEQ 0127 


L10 
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SEQ 0128 
TEST 3: WRITE COMPATABILITY/WRITE UTILITY. 
979 026600 012702 004000 MOV @DATCNT ,R2 ;SET UP THE RECORD LENGTH MASK. 
980 026604 005 DEC R2 
981 026606 010237 003430 MOV R2, LENMSK ;ALLOW MAXIMUM BUFFER. 
5982 026612 0051 34 COM LENMSK 
3983 026616 004737 010222 JSR JSR PC. SETCH ;CMD 1 = SET CHARACTERISTIC. 
984 026622 004737 010246 ;CMD2=REWI 
5985 105037 003526 Cr Re STAFLG ;LET STAFLG :B- 00 jCLEAR START FLAG 
5986 026632 50426$: BREAK ; DO A SUPVSR BREAK FIRS 
an 026632 104422 TRAP CSBRK 
FH 026634 50427$ ;WHILE THERE IS MORE ROOM IN SEQ TABLE: 
5989 026634 020127 003740 CMP R1, @SEQEND 
5990 026640 002003 BGE 50430$ 
5991 026642 004737 026372 JSR PC, RANUR ;STORE A WRITE CMD IN SEQUENCE TABLE. 
5992 026646 000772 BR 50427$ 
5993 026650 50430$: 
994 026650 012711 177777 MOV SEND, (R1) ;STORE END OF SEQUENCE CODE IN TABLE. 
995 026654 004 010266 JSR PC,EX EXECUTE ALL CMDS IN SEQ TBL ON UNITS. 
5996 026660 012701 3540 MOV @CMDSEQ,R1 sINIT SEQ TBL POINTER 
5997 026664 005702 TST R2 ;REPEAT UNTIL EOT IS REACHED 
5998 026666 001761 BEQ 504263 
5999 026670 105237 003524 INCB ALLEOT ;SET ALL UNITS @ EOT FLAG 
6000 026674 000240 NOP 
6001 026676 000240 NOP 
6002 026700 000240 NOP 
6003 026702 004737 027674 JSR PC, TSWEOT ;WRITE ONE RECORD BEYOND EOT ON ALL UNITS 
6004 ;S0 THAT SHORTER READ STOP DISTANCE 
6005 ITION HEAD IN CLEAN IRG GAP 
6006 ;READ REV THAT EXTRA REC TO RE-POSIT TAPE 
6007 026706 105037 003 CLRB ALLEOT ;CLE L UNITS T FLAG 
6008 026712 004737 0102 JSR PC,SETRW sSTORE REWIND IN SEQ TBL, 
6009 026716 012711 177777 MOV SEND, (R1) ;STORE END IN SEQ TBL, 
6010 026722 004737 010266 JSR PC,EXALL ;EXECUTE REWIND CMD ON ALL UNITS 
6012 
6013 026726 EXIT TST 
026726 104432 TRAP CS$EXIT 
WORD 110035-. 
6014 
6015 EVEN 
6016 
6017 026732 ENDTST 
026732 L10035: 
026732 104401 TRAP C$ETST 
sis 
6020 .SBTTL TEST 4: READ COMPATABILITY/READ UTILITY. 
6022 ded 
6023 ; TEST TO READ ENTIRE TAPE FORWARD AND REVERSE. 
g°- 
6025 
6026 026734 BGNTST 
026734 T4:: 
6028 026734 112737 000001 003515 MOVB #1, RANDOM ;SET THE RANDOM OPERATIONS FLAG. 
6029 026742 112737 000001 003514 MOVB 1.EXPBOT ;SET EXPECT BOT FLAG. 


M10 
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TEST 4; 


104401 


017142 
007072 


003515 
000001 


017142 
007072 


003514 


READ COMPATABILITY/READ UTILITY. 


11$: 


L10036: 


PC .FIRSTU 
JSR PC. SOF INIT 
BCS 11$ 

>. NSSRM, STAERM 
JSR PC ,.MOSET 
JSR PC,SETCH 
JSR PC, SETRW 
CLRB  STAFLG ;LET STAFLG 
MOV @ROF . 
MOV @DATCNT,(R1)- 
MOV 077777. (Ri) 
MOV @RANP ,(R1)- 
MOV @END, (R1) 
JSR PC, EXAL 
INCB ALLEOT 
MOV OCMDSEQ,R1 
MOV @RDR, (Ri)- 
MOV @DATENT , (R1)- 
MOV 077777, (Ri de 
MOV ORANP ,(R1)- 
MOV GEND,(R1) 
JSR PC EX 
CLRB ALLEOT 
EXIT TST 
.EVEN 
ENDTST 


;FIND THE FIRST UNIT. 
sINIT DEVICE 


sREPORT TSOS NOT READY 








TRAP CSERDF 
. WORD 
. WORD SRM 
-WORD STAERM 
:GO DO SETUP’S 
;CMD 1 = SET CHARACTERISTIC. 
;CMD2=REWIND. 
:B= 60 ;CLEAR START FLAG 
;CMDS = READ F 


+23 LENGTH TO MAX FOR UNKNOWN LENGTHS. 
‘ 
;PATTERN = RANDOM. 

sSTORE END OF SEQUENCE CODE IN TABLE. 
sEXECUTE ALL CMDS IN SEQ TBL ON ALL 
oS TO ALL 
+ Ye CMD SEG TBL POINT 


SE. 
;SET LENGTH Oo" = FOR UNKNOWN LENGTHS. 
sRECORD X FOR WHOLE TAPE. 
:PATTERN = R 


;STORE END OF OOF ae CODE IN TABLE. 
GO EXECUTE READ REV. 


-SBTTL TEST 5S: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 


37° 
; TEST TO EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 


TS:: 


BGNTST 


CLRB 
MOVB 


JSR 
BCS 
ERROF 


RANDOM 
01 ,EXPBOT 


PC ,.FIRSTU 
PC ,SOF INIT 


1 
2.NSSRM, STAERM 


OF ENTIRE TAPE. 
;CLEAR ALL UNITS @ EOT FLAG 
TRAP CSExIT 
-WORD 110036-. 
TRAP CSETST 
sCLEAR RAMDOM MODE FLAG. 
sSET EXPECT BOT FLAG. 
sFIND THE FIRST UNIT. 
sINIT DEVICE 
sREPORT TSOS NOT READY 
TRAP CSEROF 


T RECORD COUNT TO MAX FOR WHOLE TAPE. 


OW ALL UNITS AT EOT TO READ REV 


SEQ 0129 
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SEQ 0130 
TEST S: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 
027142 000002 ; 2 
027144 004536 CORD 
ove 027146 006120 “WORD STAERM 
6078 027150 004737 007526 11$: JSR PC ,MDSET :G0 DO SETUP’S 
6079 027154 113737 002216 003521 MOVE PIRE,IRE ;MOVE INHIBIT RF 
6080 027162 004737 010222 JSR PC,SETCH ;CMD 1 = SET 
6081 027166 013737 002220 003542 MOV CHAR , CMDSEQ-2 ;MOVE CHAR CODE 
6082 027174 012702 002222 MOV OCMDO , R2 ;R2 POINTS TO crDe IN 
004737 027652 JSR PC .PTCMDS ;MOVE CMD 2 FROM P TEL T 
004737 027652 JSR PC‘ PTCMDS ;MOVE CMD 3 FROM P TBL T 
6085 027210 004737 027652 JSR pC. BTCHDS ; MOVE CHO 4 FROM P TBL T 
6086 027214 004737 027652 JSR "PTCMDS ;MOVE S FROM P TBL T 
6087 027220 004737 027652 JSR PC. PTCMDS ;MOVE cH 6 FROM P TBL TO SEQ TBL 
027224 004737 027652 JSR PC: PTCMDS ; MOVE FROM P TBL TO SEQ TBL 
6089 027230 004737 027652 JSR PC: PTCMDS ;MOVE END CMD FROM P TOL TO SEQ TAL 
6090 027234 005037 00 CLR JL ;CLEAR JMP CMD LOOP COUNT. 
6091 027240 105037 003526 CLRB STAFLG ;CLEAR START FLAG 
7 012701 003540 MOV OCMDSEQ,R1 sINIT SEQUENCE TABLE POINTER. 
6093 027250 3$: ;WHILE (R1) NE SEND 00 ;WHILE THERE ARE CMDS LEFT IN SEQUENCE TBLE: 
6094 027250 504314: 
6095 027250 021127 177777 CMP (R1),@END 
027 001574 BEQ 50432$ 
6097 027256 022711 000040 CMP @JMP.C,(R1) ;IS THIS A JUMP CMD? 
6098 027262 001 BNE 6% ;8R IF NOT. 
6099 027264 062701 000002 ADD 62,R1 ;LET RL := RL + 62 sPOINT TO BRF. 
6100 027270 012137 003444 MOV (Ri)+,JLOC sSAVE BRF (LOCATION). 
6101 027274 022137 003442 CMP (R1)-,JLOOP ;HAS LOOP COUNT BE SATISFIED? 
61 7300 001003 BNE 13 sIF NOT, JMP AGAIN 
6103 027302 062701 000002 ADD $2,R1 :IF SO, ADJUST SEQ POUNTER 
6104 027306 000760 BR ; ; GO TO NEXT C 
6105 027310 005237 003442 1$: INC ;UPDATE THE LOOP C 
6106 027314 012701 003540 MOV @CMDSEQ,R1 :I SEQ TABLE POINTER 
6107 027320 005337 003444 2¢: DEC ;DECR LOCATION COUNTER. 
02 001751 BEQ 34 ;I1F THIS IS THE RIGHT LOCATION TO UMP TO, GO SET 
02 062701 000010 ADD #10,R1 ;IF NOT, UPDATE SEQ POINTER TO NEXT CMD. 
6110 027332 000772 BR -2$ ;00 IT AGAIN. 
6112 027334 022711 000020 6$: CMP #DLY.C,(R1) ;DELAY? 
6113 027340 001026 BNE 4% ;8R IF NOT. 
6114 027342 01 ADD $4,R1 ;R1 = LOCATION OF N COUNT. 
6115 027346 011137 003440 MOV (Ri), TIME2 ;SAVE N COUNT. 
6116 027352 7$: DELAY i :G0 TO SUPER-WAIT 1 MSEC. 
027352 012727 000001 MOV #1, (PC)- 
027356 000000 iz . WORD 
027360 013727 002116 ) MOV LS#DLY,(PC)- 
027364 000000 . WORD 
027366 005367 177772 DEC -6(PC) 
027374 oos3e7 177756 Bee -22(PC) 
027400 001367 BNE .-20 
6117 027402 005337 003440 DEC TIME2 
6118 027406 001361 ore 7 
6119 027410 062701 000004 ADD 64,R1 ;LET R1 :* R1 + O64 :POINT TO NEXT CMD. 
Sis; osTais 004787 011232 as ese BC. SETUP 1D SeTm te Cow 
3 : ° 
504334: ;WHILE LT NCNT1 DO NILE HERE ake RECORDE REMAINING : 


Bil 
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023737 


005237 
013737 


003412 
011124 
010564 
017452 
017540 
000°01 
017142 
002604 


000400 
000002 


000001 


017210 


027674 


003524 


003412 
003420 


003414 


100017 


177777 
003420 
003502 


003502 
003420 


003424 


50435$: 


CMP 
BGE 


CMP 
BNE 


INC 
MOV 


NCNT ,NCNT1 
50434$ 

JSR PC,CMDAC 

JSR PC.EXSUB 
CHOURD , @GES 


504 
JSR PC, PRXST 


JSR PC, CKHAE 
#1,R2 
JSR PC,FIRSTU 


a 
#XO.BOT ,EOTFLGCRS) 
50441$ 


Re 


50442$ 


SEQ 0131 


s;STORE CMD ASCII IN ERROR MSG. 
;ISSUE CMD TO ALL,AWAIT INTS,CHECK STATUS. 
sIF CMD IS GET STATUS THEN: 
;PRINT EXTENDED STATUS REGISTERS. 
;CHECK HALT AFTER EACH CMD FLAG. 
;SET ALL UNITS AT BOT/EOT. 
;FIND FIRST UNIT 
;WHILE THERE ARE MORE UNITS: 

;IF CMD IS REVERSE THEN: 

;IF NOT AT BOT THEN: 


;CLEAR EOT/BOT FLAG. 


sELSE IF CMD IS NOT REVERSE: 


#XO.EOT ,EOTFLGCRS) 


CMD .CO, CMDWRD 
50444$ 


R2 


JSR PC,NEXTU 
50436 $ 
R2,01 
50445$ 
NCNT , NCNT1 
NCNT1 
ALLEOT 
CMOLG , #2 
50446 
JSR PC, TSWEOT 


50447 % 
ALLEOT 


NCNT 
CMOWRD , PCMDWD 


+1 NOT AT EOT OR NOT A MOTION CMD THEN: 
LET R2 := 90 ;CLEAR EOT/BOT FLAG. 


sFIND NEXT UNIT 
; 
sIF ALL UNIT ARE AT EOT/BOT THEN: 
sFORCE TERMINATION OF COMMAND. 


sFLAG ALL UNITS AT EOT/BOT TO ALLOW VERIFY OF D 
sWHEN WRITING IS CURRENT COMMAND 


;GO WRITE/READ REV ONE RECORD BEYOND EOT 


sWHEN NOT ALL @EOT, CLEAR FLAG 


sUPDATE RECORD COUNT. 
;SAVE PREVIOUS COMMAND WORD. 


Cii 
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016126 


003752 


50432$: 


PTCMDS: : 


TSWEOT:: 


1$: 


SEQ@ 0132 


BR 50433 
JSR PC, VFYDAT ;IF LAST CMC WAS A WRITE VERIFY THEN GO 
;VERIFY THE LAST N RECORDS OF DATA 
BR 504314 
EXIT TST 
TRAP C$EXIT 
.WORD 1L10037-. 
SUBROUTINE TO MOVE A COMMAND FROM THE SOFTWARE P TABLE TO 
THE COMMAND SEQUENCE TABLE. 
INPUTS: R2 = POINTER TO SOFT "P” TABLE 
OUTPUTS: 
REGISTERS: R3. 
CALLS: 
MOV CR2)-, R3 ;R3 = COMMAND TABLE INDEX. 
ASL RS 
MOV CMDTBL(R3),(R1)- ; MOVE ; 
MOV (R2)+,(R1)- ;MOVE @ OF BYTES. 
MOV (R2)-, . ;MOVE @ OF OPERATIONS. 
MOV (R2)+,(R1)- ;MOVE PATTERN CODE. 
RTS PC 
SUBROUTINE TO WRITE THEN READ REVERSE ONE RECORD BEYOND EOT 
OUTPUTS: 
REGISTERS: 
CALLS: CMDAC . EXSUB , CKHAE 
nt 
JSR PC,EXSUB ;WRITE ONE RECORD BEYOND EOT 
JSR PC, CKHAE 350 THAT READ SHORTER STOP DISTANCE 
;SHALL POSITION HEAD IN CLEAN IRG GAP 
MOV $2,RO ;SET UP COUNTER FOR EOT 
MOV CMOWRD,PCMDWD =; LET := ;REPOSITION TAPE 
MOV $4, CMOLG oni ae nenoiheseveRse — 
MOV CHOURDCCMOPKT «LET CMDPKT := GOURD CLR BY OGRE C 
BIC OBRF .C, CMDPKT 
MOV CMDPKT , CMDSAV LET CHDSAV is CMDPKT ; THAT RECORD TO ALLOW 
MOV DATARD CMDPKT=CP. ADL COMMAND IN THE 
JSR PC,CMDAC ;TABLE TO BE EXECUTED 
JSR PC,EXSUB 
JSR PC. 
DEC RO ;FOUND EOT YET? 
BNE 1$ ;NO.KEEP GOING 
RTS PC :YES,RETURN 
.EVEN 


Dil 
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SEQ 0133 
TEST 5S: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 
6235 030010 ENDTST 
030010 L10037: 
62% 030010 10440] TRAP CSETST 
th 030012 ENDMOD 
6239 . TITLE PARAMETER CODING 
ert .SBTTL WARDWARE PARAMETER CODING SECTION 
6243 030012 BGNMOD 
6245 
3°? 
6246 ; THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
6247 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
6248 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
6249 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
6250 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
6251 ; WITH THE OPERATOR. 
3 es 
oe23 030012 BGNHRD 
030012 000042 .WORD L10040-L $HARD/2 
6255 030014 L$HARD: : 
6256 030014 GPRMA TSSADR .O.0,160010,177564, YES 
030014 000031 . WORD TS$CODE 
030016 030052 . WORD TSSADR 
030020 160010 . WORD TS$LOLIM 
030022 177564 . WORD TSHILIM 
6257 030024 GPRMD TSSVCT ,2,0.,777,60, 776, YES 
030024 001032 . WORD $C 
030026 030067 . WORD TSSVCT 
030030 000777 . WORD 777 
030032 000060 . WORD TS$LOLIM 
030034 000776 . WORD TSHILIM 
6258 030036 GPRMO TSSUNT ,4,0,1,0.1,NO 
030036 002022 . WORD TSCODE 
030040 030076 . WORD TSSUNT 
030042 000001 . WORD , 
030044 000000 . WORD $LOLIM 
030046 000001 . WORD TSHILIM 
6259 030050 EXIT HRD 
030050 024004 . WORD TSCODE 


BEX 
6262 TSSADR: .ASCIZ /TSDB ADDRESS/ 
6263 030067 126 105 103 TSSVCT: .ASCIZ /VECTOR/ 
SUNT /SELECT DRIVE 0-1/ 


6265 -LIST 

6266 E 

6267 

6268 030120 ENOHRD 

— 030120 L10040: 

6270 .SBTTL SOFTWARE PARAMETER CODING SECTION 


El 
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a 
6277 ; MACROS ALLOW ve SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 

: 


8 
g 
: 
: 


CLRM,O,1, YES 
RRVM,O,400, YES 


6285 030144 HAEM,2,1,YES 


GPRML 
GPRML 
62864 0301356 GPRML «= RCVERM 2,400, YES 
GPRML 
GPRML IRECM,6,400, YES 


6287 030160 XFERT ##NEXTSP 
BADTM,4,1,YES 


0 000001 
6289 030170 NEXTSP: DINTM,6,1,YES 
CHGM,10,1,YES 


ENDSP 1 


GPRML 
GPRML 
6290 030176 GPRS sIREM,12,1,YES 
GPRML 
XFERF 
GPRMD CHARM,14,0,377,0,777,YES 


G55 § 585 555 555 855 § $85 $55 $55 955 585 


Fil 


PARAMETER CODING 
SOFTWARE PARAMETER CODING SECTION 


6294 


6297 


6300 


6301 


6302 


6305 


000000 
000777 


O31247 


000037 
000038 
00003 


010052 
031255 
177777 


000001 
031967 
177977 
000001 
077777 
012052 
031307 
000017 
000000 
000010 


3052 
031416 
37 


015052 
031267 
177777 
000001 
077777 
016052 
031307 
000017 
000000 
000010 
017052 
031424 
000037 


000038 
00003 
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GPRMD «= CMD2M,16,0,37,1.33, YES 
GPRMD BPCRM,20,0,-1,1,DATCNT, YES 
GPRMD = NUMBM,22,0,-1,1,77777, YES 
GPRMD =PATTM,24,0,17,0,10, YES 
GPRMD 8 CMDSM,26,.0,37,1.33. YES 
GPRMD BPCRM,50,0.-1,1,DATCNT, YES 
GPRMD = NUMBM,52.0,-1,1.77777, YES 
GPRMD «= PATTM, 34,0,17,0,10, YES 
GPRMD «= CMD4¢,,56.0,37.1,33., YES 
GPRMD BPCRM,40,0,-1,1,DATCNT, YES 


SESS S558 G555 S555 55585 G8558 5585 55583 O5508 5 


T$LOLIM 
TS$HILIM 


T $CODE 
_ 
T$LOLIM 
TS$HILIM 
T $CODE 
1 

T$LOLIM 
TSHILIM 


T $CODE 
hae 


1 
T$LOLIM 
TSHILIM 


T$CODE 
CMO3M 
37 
T$LOLIM 
TS$HILIM 
T $CODE 
_ 
TS$LOLIM 
TS$HILIM 
T $CODE 
_ 
T$LOLIM 
TSHILIM 


T $CODE 
+ i Th 


1 
T$LOLIM 
TS$HILIM 


T $CODE 


3 
T$LOLIM 
TSHILIM 


SEQ 0155 


Gil 
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6304 


6305 


6306 


6307 


6308 


6309 


6310 
6311 
6312 


6315 


000001 
077777 


022052 
031307 
000017 


025052 
031267 
177777 


O777 77 
07777 
026052 
031307 
000017 
000000 
000010 


ENDSP 1: 
ENDSP2: 
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NUMBM 42,0, -1,1,77777, YES 


PATTM,44,0,17,0,10, YES 


CMDSM,46,0,37,1,33, YES 


BPCRM,50,.D, -1,1,DATCNT, YES 


NUMBM ,52.0.,-1.1,77777, YES 


PATTM,54,0,17,0,10, YES 


ENDSP2 
ENDSP3 
CMD6M,56,0,37,1,33, YES 


BPCRM,60,0,-1,1,.DATCNT, YES 


S55 S555 | 5 G5558 55585 $8058 8855 55585 88555 55888 


T $CODE 
99 
T$LOLIM 
TSHILIM 
T $CODE 
1 
T$LOLIM 
T$HILIM 


T$CODE 
PATTM 


17 
T$LOLIM 
T$HILIM 


T$CODE 
CMDSM 


37 
T$LOLIM 
T$HILIM 


T$LOLIM 
T$HILIM 


T $CODE 
i 
T$LOLIM 
TS$HILIM 
T$CODE 
PATTM 
17 
T$LOLIM 
T$HILIM 
T$CODE 
T$CODE 
T$CODE 
CMD6M 
37 
T$LOLIM 
T$HILIM 
T$CODE 
— 
T$LOLIM 
T$HILIM 


SEQ 0156 


Hil 
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6314 


6315 


6316 


6317 


6318 


6319 


6320 


6321 


6322 


6323 


030516 
0 6 


031267 
177777 
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GPRMD 


NUMBM,62,0, -1,1,77777, YES 


PATTM,64,0,17,0,10, YES 


CMD7M,66,0,37,1,33, YES 


BPCRM,70,0,-1,1,DATCNT, YES 


NUMBM,72.0, -1,1,77777, YES 


PATTM,74,0,17,0,10, YES 


CMD6M,76,0,37,1,33, YES 


BPCRM,100,D,-1,1,DATCNT, YES 


NUMBM, 102.0, -1,1,77777,YES 


PATTM,104,0,17,0,10, YES 


GS S555 G5858 85585 $5558 95585 58583 58555 55583 58555 


T$CODE 
1 

T$LOLIM 

TS$HILIM 


T $CODE 
PATTM 


17 
T$LOLIM 
TS$HILIM 


T$CODE 
CMD7M 
37 
T$LOLIM 
T$HILIM 
T $CODE 
—— 
T$LOLIM 
T$HILIM 
T$CODE 
1 
T$LOLIM 
T$HILIM 


T$CODE 
PATTM 


17 
T$LOLIM 
T$HILIM 


T $CODE 
CMD8M 
37 
T$LOLIM 
T$HILIM 
T $CODE 
1 
T$LOLIM 
T$HILIM 
T$CODE 
NUMBM 


-3 
T$LOLIM 
TSHILIM 


T $CODE 
PATTM 


SEQ 01357 


til 
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SEQ 0138 
SOFTWARE PARAMETER CODING SECTION 
0306 000017 . WORD 7 
0306 000000 . WORD $LOLIM 
030660 000010 .WORD TSHILIM 
6324 030662 XFER ENDSP 
030662 022004 .WORD TSCODE 
030664 043130 .WORD TSCODE 
030666 031317 .WORD TSMD 
030670 1 . WORD 1 
6326 030672 XFERT ENDSP 
030672 016024 .WORD TSCODE 
6327 030674 GPRML FAST,114,1,YES 
030674 . WORD T$CODE 
030676 031407 . WORD FAST 
030700 . WORD 1 
6328 030702 XFERT ENDSP4 
030702 011024 -.WORD TSCODE 
6329 030704 GPRML WTBF ,112,1,YES 
030704 045150 -WORD TSCODE 
030706 031367 .WORD WTBF 
030710 000001 . WORD 1 
6330 030712 XFERT ENDSP 
030712 006024 -WORD TSCODE 
6331 030714 GPRML «ss ROBF .110,1,YES 
030714 044130 . WORD T$CODE 
030716 031350 -WORD RDBF 
030720 000001 -WORD 1 
6332 030722 ENDSPS: XFER ENDSP 
030722 002004 -WORD TSCODE 
6333 030724 ENDSP4: XFER ENDSP 
030724 001004 . WORD T$CODE 
6334 030726 ENDSP 
6335 030726 ENDSF T 
030726 110041; 
6336 VEN 
6337 
6336 IST 


NL BEX 
6339 030726 103 1.4 105 CLRM: -ASCIZ /CLEAR COUNTERS/ 
6340 030745 122 105 123 RRVM: -ASCIZ /RESET RANDOM VARIABLES/ 
6341 0350774 110 101 114 HAEM: -ASCIZ /HALT AFTER EACH CMD/ 
6342 031020 102 101 104 BADTM: .ASCIZ /BAD TAPE SPOT DETECTION/ 
6343 031050 120 122 111 RCVERM: .ASCIZ /PRINT RECOVERABLE ERRORS/ 
6344 031101 104 111 123 DINTM: .ASCIZ /DISABLE INTERRUPTS/ 
6345 031124 111 116 110 IRECM: .ASCIZ /INHIBIT RECOVERY/ 
CHGM : & /CHANGE CMD SE 


6346 : ° QUENCE/ 
6347 031171 111 116 110 IREM: -ASCIZ /INHIBIT RFC ERROR REPORT/ 
6348 Oerse9 103 110 101 CHARM: aarts 6 -+--9—~ tale CODE / 


6349 0 103 115 104 CMD2M: .ASCI 

6350 031255 102 122 106 BPCRM: .ASCIZ /BRF COUNT/ 

6351 031267 043 040 117 NUMBM: .ASCIZ /@ OF OPERATIONS/ 
6352 031307 120 101 124 PATTM: .ASCIZ /PATTERN/ 


6353 031317 104 105 106 TSMD: -ASCIZ /DEFAULT SWITCH SETTINGS?/ 
ROBF : -ASCTZ /READ BUFFERING/ 
SCiZ /WRITE BUFFERING/ 
Z (2oviee/ 


Jil 
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SEQ 0139 
SOFTWARE PARAMETER CODING SECTION 
6358 .EVEN 
6359 
eset 031416 103 11 104 CMD3M rise -- 30 /3" 
6362 031424 103 iz 104 CMD4M: AeeTS “EMD/4" 
6363 031432 103 115 106 CMOSM: -ASCIZ “CMD/S" 
440 . " 4/6" 
6365 031446 103 itz 104 EMDN: ASETS Baty " 
366 031454 103 115 1 .ASCIZ “CMD/8" 
6367 ‘LIST BEX 
6368 
6369 
6370 
6371 
6372 § SSSSSSSSSSSSSSSSSSSESSSSSSSSSSSESSSSSSSSSSSSSeseSEsSessessessesesesesessesesesessesseseses 
1h pe, 1) tyepeneanepenpannpqunsnnqpumnnsmmen en ease sony 
- 
6375 AND AN ADJUSTMENT TO ACCOUNT FOR THE “LASTAD BIT7” HACK 
6376 ; DESCRIBED IN “SUPPRG.MEM” (FOR REV C). 
6377 : 
6378 
6379 031462 PATCH:: .BLKW 64. 
6380 
6382 032000 .2, 937761 
6384 
6385 032000 LASTAD 
EVEN 
032000 000000 WORD 0 
032002 000000 WORD Oo 
032004 L$LAST:: 
6386 032004 
6387 
6388 .SBTTL HARD CODED P-TBL 
6389 
6390 ded 
6391 ;DIAG IS PRE-PARAMETERIZED PER TBL 
6392 ine 
6393 
6394 032004 BGNSETUP 1 
6395 032004 BGNPTAB 
032004 000000 .WORD 0 
032006 000003 .WORD 110044-./2-1 
032010 L10042: 
6396 032010 172522 172522 
6397 032012 000224 224 
6398 032014 000000 0 
6399 032016 ENDPTAB 
032016 L10044: 
6400 032016 ENDSETUP 


Kil 
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Symbol table 
ACK.C = 100000 G dhs ose cp = Sostat : tha ontete P eae 4 taaea : 
ALLEOT 003524 G BIMSCS 01523 ERLE SP 005744 G DAT 003406 G EXTFEA 002322 G 
AS * 000010 BIMSGS 015307 cTcc 003450 G DATCNT= 004000 G ESEND = 002100 
ATTNM 004603 G BTPT 003512 G CvC.C = 040000 G DATERM 005752 G Es 000035 
005114 G BTRPT G AY = 900052 DEVTBL 002604 G FAS 031407 
005146 G BT 00 G C$AUTO= 000061 OFPTBL 002174 G FA G 
BTl 003120 G CSBRK = 000022 DF TSCH= 000040 G FIRSTU 017142 G 
BT2 003172 G C$BSEG= 000004 DIA = 100006 G FMT .CO= G 
002210 G BT3 003244 G C$BSUB= 000002 DIABLK= 003406 G FMT.C1= 000100 G 
G CHAR 002220 G C$CEFG= 000045 DIACNT= 000020 G FTL 003366 G 
G CHARM 31222 CS$CLCK= 000062 DIAGMC= UNRM 004622 G 
CHGFLG 002214 G C$CLEA= 000012 INT G FSAU = 000015 
CHGM 031145 C$CLOS= 000035 DINT™ 031101 FSAUTO= 000020 
CHKERR 013250 G CS$CLP1= 000006 OLY = G F$BGN = 000040 
CH.EAI= 000040 G CSCVEC= 000036 OLY.C = G FSCLEA= 000007 
CH.ERI= 000020 G CSOCLN= 000044 DRI -# 100013 G F$OU = 000016 
CH.ESS= 000200 G C$D0DU= 000051 OR G FSEND = 00004] 
CKDATA 016526 G CSORPT= 000024 003 G F $HARD= 
CKDCNT 017136 Cs0U = 000053 017450 FsHW = 0000135 
CKDFF 017140 CsEDIT= 000003 OPU 017240 G FSINIT= QO00006 
CKHAE OQ] G CSERDF= 000055 017364 FSuMP = 000050 
CKHRTN 017 CSERHR= 000056 DRORTN 017442 F$MOD = 000000 
CLN =# 101012 G CSERRO= 000060 TAERM 005752 G F$MSG = 000011 
CLRERR 012724 G CSERSF= 000054 AER2 005226 G FSPROT= 000021 
s G CLRFLG 002 G CSERSO= 000057 DTAERS 005275 G FSPWR = 000017 
. G CLRM 030726 CSESCA= 000010 DTAERS4 005337 G FSRPT = 000012 
= G 011124 G CSESEG= 000005 DTAERS 005360 G F$SEG = 00000 
® G CMDASC 004040 G CSESUB= 000003 EF .CON= 000036 G F $SOF T= 
. G CMODD 002222 G CSETST= 000001 EF .HSS= G FS¢SRV = 000010 
= G CMDOLG 003426 G CSEXxXIT= 000032 EF .NEW= 000035 G F$SUB = 
= G 004 G C$GETB= 000026 EF .PWR= 000034 G F$SW = 000014 
= G T 002330 G C$GETW= 000027 EF .RBO= G FSTEST= 000001 
. G CMDSAV 003422 G C$GMAN= 000043 EF .RES= 000037 G GCMDA 011176 G 
* G CMDSE@ 003 G C$GPHR= 000042 EF. = 0000350 G GENPAT 011616 G 
= G CMDSE2 003550 G C$GPLO= 000030 EF .STA= G GES == 100017G 
= G CMDTBL 003752 G C$GPRI= EINC 16120 GETSTM 005507 G 
= G 003420 G CSINIT= 000011 END -# 177777G IT 012110 
= G CMD .CO= 000001 G CSIN.P= 000020 ENDERF= 003472 GOWAIT 012424 G 
= G CMD.Ci= 000002 G C$MANI= ENDFLG= 003526 340 G 
= G CMD.C2= 000004 G C$MEM = 000031 ENDSP 030726 G$CNTO= 
* G CMD.C3= 000010 G C$MSG = 00002 ENDSP1 030470 000372 
= o CMD .C4= 000020 G CSOPEN= ENDSP2 030472 GSDISP= 
= G CMD2M 031247 CS$PNTB= 000014 ENDSPS 0O GSE XCP= 
= G CMD3M 031416 CSPNTF= 000017 ENDSP4 030724 $HILI= 
= G CMD4M 031424 CS$PNTS= 000016 ENDSPS 030722 G$LOQLI= 000001 
. G CMDSM 031432 CSPNTX= 15 EOTFLG 003 G G$NO = 
. G CMD6M 031440 C$Q@IO = 000377 ERC 002207 G GSOFFS= 
* G CMD7M 031446 C$ 000007 ERLOG 00 G GSOFSI= 000376 
. G CMDSmM 031454 CS$REFG= 000047 ERRREC 003471 G G$PRMA= 1 
sd G CNTBGN= 002626 CS$RESE= 000033 ERS =# 100411 G G$PRMD= 
= 000400 G CNTEND= 003376 CS$REVI= 000003 ERSFLG 003525 G G$PRML= 
015356 G CNTLEN= 000550 G C$RFLA= 000021 G G$RADA= 000140 
031255 CODELM 004162 G CsRPT = 000025 EXALL 010266 G G$RADB= 
002344 G CP .ADH= 000004 G CS$SEFG= 000046 EXARTN 010562 G$RADD= 000040 
003416 G CP.ADL= 000002 G C$SPRI= 000041 EXCRTIN 012422 G$RADL= 000120 
= 004000 G CP.CMD= 000000 G C$SVEC= 000037 EXCUTE 012114 G G$RADO= 000020 
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GSXFER= 000004 
GSYES = 000010 


sees 
aE 
: 
a a ll lll 


Freee e @e 


a3 








IREM 


beens 


Foon tees 
eee 







s3a8z3° 
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ia 





~s, 
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& & AH 
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~« 
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ae 


ee 


™ 
338° 


a 
A 


L $HPTP 


SEEKS 


Saree 
— So =e 
& Sn : oe 
DOOHOQHAVHVOAAIHAAAAAAAIDAAIAIAAIAIAIAIADGHAAAAAAHIOAAAHAAHGHOAAHGHAOOOA 


023352 
023642 


024110 
024214 
025702 
024430 


ie 
DOAQAHAGDAAGAAGAAAAGAAAA AAG 








SEG 0141 
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MACRO VOS.03 Fri 22- -87 08:12 P 26 - 86 
riday May : age SEQ 0142 








TRAPD4 0035350 G TSHILI= 000010 Ti 024216 G 
TRAPS 023770 G T$LAST= 000001 TISWB 38003523 G 
TSAM 004705 G T$LOLI= 000000 T1.1 024226 
TSBA = 14G be Ms 010000 71.10 024636 
TSC.FC* 177717 G T$LTNO= 000005 T1.11 024656 
TSC.TC* 177761 G TS$NEST= 177777 T1.12 024742 
TSOB 002514 G T$NSO = 000000 13 -¢ 024432 
TSI) 031317 T$NS1 = 000005 Tl. 024456 
TSNP 003534 G T$NS2 = 000002 1.4 024476 
TSSR 002524 G T$PCNT= 000000 1.5 024516 
TSSREG 003454 G T$PTAB= 010043 71.6 024536 
SUNT 003532 G TSPTHV= 1 1.7 024556 
TSVCT 002534 G * TSPTNU= 1 1.8 024576 
TS.A16= 000400 G ' TS$SAVL= 177777 1.9 024616 
TS.A17= 001000 G T$SEGL*= 177777 T2 025704 G 
S.NBA= 002000 G TS$SIZE= T3 026540 G 
TS.NXM= 004000 G T$SUBN= T4 026734 G 0 
TS.OFL= 000100 G T$TAGL= 177777 TS 027114 G 
TS.RMR= 010000 G T$TAGN= 010045 TSWEOT 027674 G 000000 
TS.SC_ = 100000 G TSTEMP= VAM == OOO G 000040 
TS.SPE= 020000 G TSTEST= UNIWLK 0056 000400 
TS.SSR= 000200 G TSTSTM= 177777 = 100412 G 000020 
TS.UPE= 040000 G TS$TSTS= UNREC 003470 G XO0.BOT= 000002 G 
TSIMD 002312 G T$$AU = 010016 RM G X0.EOT= 000001 G 
TSSADR 030052 T$$AUT= 010013 VFEXC 016212 G XO.LET= 020000 G 
TS 002564 G TS$$CLE= 010014 ISU G 0.ONL= 000100 G 
TSSINT 002554 G T$$DAT= 010044 VF YCNT G O.RLL= 010000 G 
TSSINO 010074 G T$$0U_= 010015 VFYDAT 016126 G XO.RLS= 040000 G 
TSSIN1 010102 G T$$HAR= 010040 VFYFLG 003516 G XO. TMK= 100000 G 
TSSIN2 010110 G T$$HW = 010000 VFY.C = 100 G XO.WLK= Q00004 G 
TSSINS 010116 G T$$INI= 010012 WAITF 007 G X2.BFE= 000100 G 
TSSSW 002574 G T$$MSG= 010003 WLKCHK 007416 G X2.EFE= 000200 G 
S 030076 T$$PC = 1 WLKZRO 011774 X2.EXT= eeeee8 GX 
TSSVCT 030067 T$$PRO= 010011 WRBC 002626 G , 100000 G 
$ARGC= 0000035 TS$$PTA= 0100435 WRECL = 000020 G X3.O0CK= 000010 G 
T$CODE= 001004 T$$RPT= 010010 WRR = 105005 G X3.RNY= 157400 G 
T 000002 T$$SOF= 010041 WRREC 002766 G X4.HSS= 1 G 
T$EXCP= 000000 T$$SRV= 010007 WRT ==] G X4 .RCE= G 
TS$FLAG= 000041 T$$SUB= 010033 WRTCHK 007270 G AT 011744 
TS$FREE= 032016 T$$SW = +000) WRTCHR 007476 G $LSTIN= 000001 
T$ TS$$TES= 01003 WRTY 014676 G $LSTTA= 000001 
- ABS. 032016 000) =—s (RW, 1, GBL .ABS,,OVR) 

(RW,I,LCL REL ,CON) 


Errors detected: 0 








303 
33838 Words 14 Peces) 
t: {oea8 uorae ¢ 88 Peges) 
RSX-11M/PLUS (Under VAX/VMS) 
time: :04:16.49 
CVTSED/ -$P= »CVTSED 





